Save file (1 người xem)

[giaosy]

Sub SaveOneFile()
 Dim fn As Variant
 fn = Application.GetSaveAsFilename(wbName, "Excel files,*.xls", 2, "E:\")
 If TypeName(fn) = "Boolean" Then Exit Sub
 ActiveWorkbook.SaveAs fn
End Sub

Mỗi lần em sử dụng đoạn code này đều phải nhấn nút ok để save (em save as để lưu file có data ở dạng xml về thành file có dang .xls). Các bác có cách nào có thể chương trình tự save as mà không phải bấm nút ok không, chỉ em với.
Thanks

 

[MinhNguyệt]

Sub SaveOneFile()
Dim fn As Variant
fn = Application.GetSaveAsFilename(wbName, "Excel files,*.xls", 2, "E:\")
If TypeName(fn) = "Boolean" Then Exit Sub
ActiveWorkbook.SaveAs fn
End Sub

Mỗi lần em sử dụng đoạn code này đều phải nhấn nút ok để save (em save as để lưu file có data ở dạng xml về thành file có dang .xls). Các bác có cách nào có thể chương trình tự save as mà không phải bấm nút ok không, chỉ em với.
Thanks

Vì bạn dùng dialog nên phải nhấn OK thôi

Sub SaveAs()
      TenFileLuu = InputBox("What is Filename?", "SaveAs FileName", "ABC")
      ThisWorkbook.SaveAs FileName:="E:\" & TenFileLuu & ".xls"
End Sub

 

[giaosy]

em đã dùng thử cách của bác MinhNguyet kết quả là: file đã sếp, nhưng toàn bộ dữ liệu không sếp theo (mất luôn...hic).
Vấn đê của em là có một file định dạng xlOpenXMLWorkbook và muốn save as sang định dạng xlsx nhưng sau khi làm đủ mọi cách để save thì kết quả là dữ liệu sếp sang thay đổi, sai với dữ liệu ban đầu.
Mỗi đoạn code em đã post lúc đầu là cho kết quả đúng nhưng phải bấm nút liên tục (hic) vì phải save nhiều file.
Các bác có cách nào để tự động hóa được cái vụ save as này mà không phải mở dialog save as ra thì chỉ giúp em với.
thanks các bác

 

[giaosy]

thanks các bác em giải quyết vụ nay xong rồi