Chào bạnNGUYEN VAN LINH đã viết:
NGUYEN VAN LINH đã viết:
Sub vidu()
Dim time1, i
time1 = Time()
For i = 1 To 20000
Cells(i, 1).Value = i
Next
time1 = Second(Time() - time1)
MsgBox ("Thoi gian het :" & time1 & " giay")
End Sub
Mình thử 6,5M còn 1,8M , cảm ơn bạn
hix, các bác thông cảm nhé, chắc do mình đọc không kỹ nên mình không biết diễn đàn chúng ta không được phép chia sẽ những điều trên. Nếu có điều gì không phải xin các bác bỏ qua cho em nhé.Bạn hãy cẩn thận
Các DLL toàn chứa class thôi (no form) được nén với kết quả là 80% (By PECompact)
Mình cũng vừa mới phát hiện ra topic này. Hay quá... Cảm ơn bác tedaynui nhiều! Mới down về dùng thử, nhưng mình cũng kịp khám phá ra một số thứ:
Mình đã dùng thử để nén 1 file xls 24.4Mb (theo các tiêu chuẩn mặc định), kích thước file exe chỉ còn 5.91Mb, vậy là quá tốt rồi. Tuy nhiên khi chạy exe thì có 1 Macro không chạy được (công việc chính của Macro này là sao chép dữ liệu từ 1 Workbook này sang 1 Workbook khác, nhiều lần - cụ thể là việc tạo sổ điểm cá nhân cho GVBM, tạo bảng điểm lớp này xong thì tạo bảng điểm lớp khác). Khi chạy, có tới hơn 80 cửa sổ Excel được mở (
tắt không kịp), trong khi ở xls thì bình thường. Để mình thử kiểm tra lại xem sao.Với thắc mắc này, công nhận là cũng khó chịu thật, cứ phải xóa thường xuyên thì...
. Để xử lý tên này, mình vừa thử viết một Sub như sau. Tất nhiên chỉ là để xử lí tình thế. Bác nào có cao kiến thì trao đổi nhé (mình kiếm mấy câu lệnh trên GPE rồi nối chúng lại thôi - Amateur mà)Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim DDan, TenFile, BakFile, NextBakFile, TexFile As String
Dim i As Byte
Dim iFNumber As Integer 'File number
On Error Resume Next
TexFile = ActiveWorkbook.Path & "\" & "XLtoEXE.log"
iFNumber = FreeFile
Open TexFile For Input As #iFNumber
Input #iFNumber, DDan
Close #iFNumber
TenFile = ActiveWorkbook.Name
BakFile = DDan & "\Backup of " & Left(TenFile, Len(TenFile) - 4) & ".exe"
If Dir(BakFile) <> "" Then Kill (BakFile)
i = 1
Do
BakFile = DDan & "\Backup of " & Left(TenFile, Len(TenFile) - 4) & i & ".exe"
If Dir(BakFile) <> "" Then Kill (BakFile)
i = i + 1
NextBakFile = DDan & "\Backup of " & Left(TenFile, Len(TenFile) - 4) & i & ".exe"
Loop While Dir(NextBakFile) <> ""
End Sub
Mình cũng vừa mới phát hiện ra topic này. Hay quá... Cảm ơn bác tedaynui nhiều! Mới down về dùng thử, nhưng mình cũng kịp khám phá ra một số thứ:
Với thắc mắc này, công nhận là cũng khó chịu thật, cứ phải xóa thường xuyên thì...
PHP:Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim DDan, TenFile, BakFile, NextBakFile, TexFile As String Dim i As Byte Dim iFNumber As Integer 'File number
Dim iFNumber As Integer File number
Còn dấu nháy (') thì hiểu thế nào?
Việc tạo ra backup file hay không là do ta tùy chỉnh chương trình, cần gì viết code cho nó mệt nhỉ?
Tôi không biết bạn làm cái gì nhưng từ trước giờ khi dùng XLStoEXE, nếu không muốn tạo ra Backup file thì tôi sẽ check vào mục Read Only
Đúng vậy, chức năng này gây ra sự phiền toái quá, mình đâu muốn nó tạo ra file backup, khi convert thì chức năng này mới có ý nghĩa, còn khi sử dụng file exe rồi không biết nó tạo ra cái backup để làm gì
Bạn cho mình hỏi vậy có cách nào cover ngược lại không?
Các anh có cách nào dùng XLStoEXE mà chạy vòng lặp được nhanh ko ạ. Chuyển chạy file qua EXE tốc độ e thấy chậm hơn 10 lần chạy xls ạ.
pass unrar là gì v Anh?
123abc, bạn thử xem có được ko nha
