Em đang làm một file excel có code vba để thực hiện một số thủ tục phát sinh hằng ngày, vì thế em muốn chuyển nó thành chương trình. Qua tìm hiểu GPE thì biến file đó thành đuôi chạy exe, em có một số câu hỏi sau:
- các anh/chi đã có kinh nghiệm thì nên sử dụng phần mềm nào để chuyển đổi thành file exe.
- file của e có một số cell phải nhập tay vào để thủ tục được thực hiện. Theo ý hiểu của e thì đã là file exe thì ko thể động chạm vào? cứ click là chạy thôi. Vậy khi chuyển đổi sang exe có tác động vào cell được không?
Em xin cảm ơn!
Em cảm ơn anh đã góp ý.
Code của e cũng được nhặt nhạnh trên GPE, là việc mở file và lưu dữ liệu từ máy chủ về, file nguồn thì sinh ra hàng ngày nên này nào cũng phải chạy code, nên nghĩ cách để lưu thành file chạy thôi ạh
Em cảm ơn anh đã góp ý.
Code của e cũng được nhặt nhạnh trên GPE, là việc mở file và lưu dữ liệu từ máy chủ về, file nguồn thì sinh ra hàng ngày nên này nào cũng phải chạy code, nên nghĩ cách để lưu thành file chạy thôi ạh
Vậy em xin phép up file lên để anh/chị giúp đỡ!
Tại sheet13 nhập ngày cần lấy dữ liệu ở ô A12
File dữ liệu được lưu ở máy chủ. đường dẫn ở ô B2
File dữ liệu được lưu về để ở share của máy trạm, đường dẫn ở ô B3
Tên file lấy có tên ở ô C2
Tên File lưu về có tên ở ô E2
Đọan code lưu dữ liệu
Mã:
Sub LuuFile()
Application.DisplayAlerts = False
Dim Name1 As String, Name2 As String
Name1 = Sheet13.[D2]
Name2 = Sheet13.[F2]
' Kiem tra su ton tai cua file
With CreateObject("Scripting.FileSystemObject")
If .FileExists(Name1) = False Then
MsgBox "Chua co file", vbInformation, "tho^ng bao'"
Exit Sub
Else
Workbooks.Open Name1
ActiveWorkbook.SaveAs Name2, FileFormat:=xlExcel12
End If
End With
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Vậy em xin phép up file lên để anh/chị giúp đỡ!
Tại sheet13 nhập ngày cần lấy dữ liệu ở ô A12
File dữ liệu được lưu ở máy chủ. đường dẫn ở ô B2
File dữ liệu được lưu về để ở share của máy trạm, đường dẫn ở ô B3
Tên file lấy có tên ở ô C2
Tên File lưu về có tên ở ô E2
Đọan code lưu dữ liệu
Mã:
Sub LuuFile()
Application.DisplayAlerts = False
Dim Name1 As String, Name2 As String
Name1 = Sheet13.[D2]
Name2 = Sheet13.[F2]
' Kiem tra su ton tai cua file
With CreateObject("Scripting.FileSystemObject")
If .FileExists(Name1) = False Then
MsgBox "Chua co file", vbInformation, "tho^ng bao'"
Exit Sub
Else
Workbooks.Open Name1
ActiveWorkbook.SaveAs Name2, FileFormat:=xlExcel12
End If
End With
' Close lai
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
@ a Siwtom: chỗ đo đỏ thực ra là nhập tay.. nhưng em để bằng =today() để cho nhanh vì ngày nào cũng phải lấy file. Trường hợp các hôm trước chưa lấy dữ liệu thì phải nhập lùi ngày ạ.
Trên dữ liệu của máy chủ lúc dữ liệu có sớm..lucs có muộn.. nên em có sử dụng ..fileexists để bẫy lỗi.
Giả sử file như vd của a là book1.xlsm có nhiều thủ tục thì nó sẽ chạy hết các thủ tục ạ. Muốn nó chỉ chạy sub luufile thôi có đc ko?
Em cảm ơn!
Cái này em nhận lỗi.. mắt kém.. nhìn bằng đt nên không nhìn hết.
Thêm 1 nội dung nữa: cái chỗ date e phải nhập bằng tay vậy chạy file chandai..vbs thì nó mặc định là ngày hệ thống ạ? E muốn lấy dữ liệu ngày nào thì nhập ngày đó.
Cái này em nhận lỗi.. mắt kém.. nhìn bằng đt nên không nhìn hết.
Thêm 1 nội dung nữa: cái chỗ date e phải nhập bằng tay vậy chạy file chandai..vbs thì nó mặc định là ngày hệ thống ạ? E muốn lấy dữ liệu ngày nào thì nhập ngày đó.
File thực hiện các thủ tục khá nặng nề.
Việc chuyển sang file chạy để nó chạy nhẹ nhàng hơn, làm 1 vài thủ tục nhất định mà ko cần mở file ra.
date là 1 tham số như ý của a Vetmini ở bài #11 thì tốt.
File thực hiện các thủ tục khá nặng nề.
Việc chuyển sang file chạy để nó chạy nhẹ nhàng hơn, làm 1 vài thủ tục nhất định mà ko cần mở file ra.
date là 1 tham số như ý của a Vetmini ở bài #11 thì tốt.
