Code Save as (bấm F12) mở hộp thoại theo đúng thư mục đang chứa File muốn Save as (1 người xem)

[AnhThu-1976]

Các Thầy và anh chị giúp em như sau
Ví dụ: em muốn Save As 1 file mà file này đang nằm trong thư mục nào đó (giả sử D:\TongHopCongNo) thì nó mở hộp thoại Save As ở thư mục D:\TongHopCongNo, để em đặt tên mới cho nó
Tóm lại: Em muốn mở hộp thoại để Save As 1 file mà cùng thư mục với nó (tên file sẽ do em tự đặt)
Cái này em Recode macro và sửa nhưng không được. Em cảm ơn!

 

[anhtuan2939]

Các Thầy và anh chị giúp em như sau
Ví dụ: em muốn Save As 1 file mà file này đang nằm trong thư mục nào đó (giả sử D:\TongHopCongNo) thì nó mở hộp thoại Save As ở thư mục D:\TongHopCongNo, để em đặt tên mới cho nó
Tóm lại: Em muốn mở hộp thoại để Save As 1 file mà cùng thư mục với nó (tên file sẽ do em tự đặt)
Cái này em Recode macro và sửa nhưng không được. Em cảm ơn!

Bạn thử Code này xem:

Sub SaveAs()
    Dim filename As String
    filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    ThisWorkbook.SaveAs filename
End Sub

 

[AnhThu-1976]

Bạn thử Code này xem:

Sub SaveAs()
    Dim filename As String
    filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    ThisWorkbook.SaveAs filename
End Sub

Cảm ơn bạn, bạn chưa hiểu hết ý của mình
Ý tôi là chỉ muốn code mở hộp thoại Save As thôi còn phần còn lại là mình sẽ đặt tên xong và mình sẽ bấm nút Save

 

[anhtuan2939]

Ý tôi là chỉ muốn code mở hộp thoại Save As thôi còn phần còn lại là mình sẽ đặt tên xong và mình sẽ bấm nút Save

Cái này thì mình chưa nghĩ ra. Thử dùng inputbox xem sao

Sub SaveAs()
    Dim filename As String, file As String
    filename = InputBox("Vui long nhap ten Tep")
    If filename = "" Then Exit Sub
    file = ThisWorkbook.Path & "\" & filename & ".xlsm"
    ThisWorkbook.SaveAs file
End Sub

 

[AnhThu-1976]

Cảm ơn bạn, bạn chưa hiểu hết ý của mình
Ý tôi là chỉ muốn code mở hộp thoại Save As thôi còn phần còn lại là mình sẽ đặt tên xong và mình sẽ bấm nút Save

Hoặc đặt theo tên mà em đặt ở ô A1 của sheet "Báo cáo"
Em có sửa code trên nhưng nó báo lỗi

Sub SaveAs()
    Dim filename As String
   ' filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    filename = ThisWorkbook.Path & "\sheets("Báo cáo").range("A1").value.xlsm" 
    ThisWorkbook.SaveAs filename
End Sub

Em cảm ơn!

 

[anhtuan2939]

Hoặc đặt theo tên mà em đặt ở ô A1 của sheet "Báo cáo"
Sửa thế này nhé!

Sub SaveAs()
    Dim filename As String
   ' filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    filename = ThisWorkbook.Path & "\" & sheets("Báo cáo").range("A1").value & ".xlsm"
    ThisWorkbook.SaveAs filename
End Sub

 

[AnhThu-1976]

Thay vì nhập tên vào InputBox, mình muốn tên file sẽ giống như ô A1 của sheet "Báo cáo" được không bạn?

 

[anhtuan2939]

Thay vì nhập tên vào InputBox, mình muốn tên file sẽ giống như ô A1 của sheet "Báo cáo" được không bạn?

Sub SaveAs()
    Dim filename As String
   ' filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    filename = ThisWorkbook.Path & "\" & sheets("Báo cáo").range("A1").value & ".xlsm"
    ThisWorkbook.SaveAs filename
End Sub

Bài đã được tự động gộp: 26/7/20

Sub SaveAs()
    Dim filename As String
   ' filename = ThisWorkbook.Path & "\TenFile.xlsm" 'TenFile thi do ban dat ten nhe
    filename = ThisWorkbook.Path & "\" & sheets("Báo cáo").range("A1").value & ".xlsm"
    ThisWorkbook.SaveAs filename
End Sub

Để tránh trường hợp code bị lỗi vì có ký tự unicode thì bạn sửa sheets("Báo cáo") thành sheet bao nhiêu luôn nhé

 

[ongke0711]

Excel có sẳn công cụ rồi đó bạn: Application.GetSaveAsFilename hoặc dùng Application.Dialogs(xlDialogSaveAs).Show

Sub SaveFile()
    Dim InitialName As String
    Dim FileName As Variant

    InitialName = Sheets("BaoCao").Range("A1")
    
    'Hien thi hop thoai Save as
    FileName = Application.GetSaveAsFilename(InitialName, _
                                              "Excel files (*.xlsx),*.xlsx,Excel Macro-Enabled Workbook (*.xlsm),*.xlsm,Excel Binary Workbook (*.xlsb),*.xlsb", 1, "Chon Folder và dat ten File de luu:")
    'Nguoi dùng huy luu file
    If TypeName(FileName) = "Boolean" Then Exit Sub
    'Luu file
    ActiveWorkbook.SaveCopyAs FileName

End Sub