Đặt tên File theo 1 ô (1 người xem)

[dangvu45]

Có cách nào lưu lại tên File theo giá trị của 1 ô trong bảng tính không ạ. Ví dụ lấy theo ô "A1 = Báo giá" thì khi lưu, tên file sẽ thành "báo giá"
Link macro của e hiện tại :
ActiveWorkbook.SaveAs Filename:="C:\Users\John\Desktop\Book1.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[giaiphap]

Sửa lại thế này thử xem.

ActiveWorkbook.SaveAs Filename:="C:\Users\John\Desktop\[COLOR=#ff0000][B]" & [a1] & "[/B][/COLOR].xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[PacificPR]

Không thì bạn dùng cái này có thể tùy chọn được nơi lưu tệp tin

Sub Save_File()
    Dim FileSaveName As String, FileName As String
    NameFile = Range("A1")
    FileSaveName = Application.GetSaveAsFilename(InitialFileName:=NameFile, FileFilter:="Excel Wowkbook (*.xls),*.xls", Title:="Luu tep tin")
    If FileSaveName <> "False" Then
    ActiveWorkbook.SaveAs FileName:=FileSaveName
    End If
End Sub

 

[be_09]

Thử như vầy:

Sub LuuFile_VoiCell()
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs Filename:="D:\be09\" & Range("A1"), CreateBackup:=False
   Application.DisplayAlerts = True
End Sub