Lưu sổ làm việc Excel vào đường dẫn không đổi với tên tệp từ 2 trường

Question

Tôi hoàn toàn mới với macro Excel, tôi đã cố gắng tìm kiếm và đặt mã cho phù hợp với mục đích của mình, nhưng không có may mắn. Tôi hy vọng một người nào đó đủ rộng lượng để giúp tôi.

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\ck.xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

Làm thế nào để chỉnh sửa này để: Thay vì đặt tên cho các tập tin ck.xls lưu, tạo ra các tên tập tin từ các tế bào bảng C5 và C8, với một không gian ở giữa.

Answer 1

thử

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\" & Range("C5").Text & chr(32) & Range("C8").Text &".xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

Nếu bạn muốn lưu bảng tính với các macro sử dụng mã dưới đây

Sub save() 
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xlsm", FileFormat:= _ 
    xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
End Sub 

nếu bạn muốn lưu workbook không có macro và không có cửa sổ pop-up sử dụng

này

Sub save() 
    Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xls", _ 
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
    Application.DisplayAlerts = True 
End Sub 

Answer 2

Ok, vào thời điểm đó hoàn thành với sự giúp đỡ của một người bạn và mã giống như thế này.

Sub Saving() 

Dim part1 As String 

Dim part2 As String 


part1 = Range("C5").Value 

part2 = Range("C8").Value 


ActiveWorkbook.SaveAs Filename:= _ 

"C:\-docs\cmat\Desktop\pieteikumi\" & part1 & " " & part2 & ".xlsm", FileFormat:= _ 
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

End Sub 

Làm thế nào để chỉnh sửa phần này (FileFormat: = _ xlOpenXMLWorkbookMacroEnabled) cho nó để tiết kiệm như Excel 97-2013 Workbook, đã thử nhiều biến thể không thành công. Thankyou

Dường như, tôi đã tìm ra giải pháp, nhưng ý tưởng của tôi là thiếu sót. Bằng cách làm FileFormat này: = _ xlOpenXMLWorkbook, nó thả ra một cửa sổ bật lên nói rằng, bạn không thể lưu sổ làm việc này dưới dạng tệp mà không bật Macro. Vì vậy, điều này là không thể?