Save hoặc Open Folder ... mặc định đường dẫn Save (1 người xem)

[locbanh]

Kính Gửi các ACE .

- Mình có hàm "Save as" nhưng khi chạy macro này thì mình muốn đường dẫn mặc định luôn luôn là ỗ đĩa D để người dùng có thể chọn Folder save lại cho nhanh. ( nhưng nó toàn là ô đĩa C:\... ko ah).
- Google ko biết seach gì ( Special.Folder ko ra ) , Nhờ ACE giúp mình với.

Sub SaveAsFile()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file (*.xls), *.xls")
MsgBox file_name
If file_name <> False Then
ActiveWorkbook.SaveAs Filename:=file_name
MsgBox "File Saved!"
End If
End Sub

 

[huuthang_bd]

Kính Gửi các ACE .

- Mình có hàm "Save as" nhưng khi chạy macro này thì mình muốn đường dẫn mặc định luôn luôn là ỗ đĩa D để người dùng có thể chọn Folder save lại cho nhanh. ( nhưng nó toàn là ô đĩa C:\... ko ah).
- Google ko biết seach gì ( Special.Folder ko ra ) , Nhờ ACE giúp mình với.

Sub SaveAsFile()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file (*.xls), *.xls")
MsgBox file_name
If file_name <> False Then
ActiveWorkbook.SaveAs Filename:=file_name
MsgBox "File Saved!"
End If
End Sub

Bạn sửa lại vầy thử xem:

Sub SaveAsFile()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename(InitialFileName:="D:\" & ActiveWorkbook.Name, FileFilter:="Microsoft Excel file (*.xls), *.xls")
MsgBox file_name
If file_name <> False Then
ActiveWorkbook.SaveAs Filename:=file_name
MsgBox "File Saved!"
End If
End Sub

 

[locbanh]

Bạn sửa lại vầy thử xem:

Sub SaveAsFile()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename(InitialFileName:="D:\" & ActiveWorkbook.Name, FileFilter:="Microsoft Excel file (*.xls), *.xls")
MsgBox file_name
If file_name <> False Then
ActiveWorkbook.SaveAs Filename:=file_name
MsgBox "File Saved!"
End If
End Sub

Cám Ơn huuthang_bd rất nhiều. mình làm được rồi, Cho Minh hoi thêm là nếu open foder thi làm sao?
'Open the file dialog
Dim diaFolder As FileDialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show
File_path = diaFolder.SelectedItems(1)

 

[ndu96081631]

Cám Ơn huuthang_bd rất nhiều. mình làm được rồi, Cho Minh hoi thêm là nếu open foder thi làm sao?
'Open the file dialog
Dim diaFolder As FileDialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show
File_path = diaFolder.SelectedItems(1)

Thêm chỗ này: diaFolder.InitialFileName = "Đường dẫn bạn cần"

 

[locbanh]

Thêm chỗ này: diaFolder.InitialFileName = "Đường dẫn bạn cần"

Daz. E làm được rồi ,Cám ơn Anh rất nhiều.