Làm cách nào để thực hiện "Lưu dưới dạng" trong mã vba, lưu sổ làm việc Excel hiện tại của tôi với dấu thời gian?

Question

Tôi có một Sổ làm việc Excel có trên nút biểu mẫu, bấm Tôi muốn lưu một bản sao của sổ làm việc với tên tệp là ngày hiện tại.

Tôi cứ cố gắng nào dưới đây ActiveWorkbook.SaveAs ("\\filePath\FormFlow To MSExcel\" & Left(Now(), 10)) nhưng đang nhận Run-time error '1004': Method 'SaveAs' of object'_Workbook' failed.

bất cứ ai có thể giúp tôi với điều này? Tôi vẫn còn rất mới để phát triển cho Excel.

Answer 1

Rất có thể đường dẫn bạn đang cố gắng truy cập không tồn tại. Có vẻ như bạn đang cố lưu vào một vị trí tương đối và bạn không có phần mở rộng tệp trong chuỗi đó. Nếu bạn cần phải sử dụng đường dẫn tương đối, bạn có thể phân tích đường đi từ ActiveWorkbook.FullName

EDIT: cú pháp tốt hơn cũng sẽ là

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal 

Answer 2

Tôi biết đây là một bài cũ nhưng tôi đang tìm kiếm một cái gì đó tương tự ... Tôi nghĩ rằng vấn đề của bạn là khi bạn sử dụng Now(), đầu ra sẽ là "6/20/2014" ... Đây là một vấn đề cho một tên tập tin như nó có "/" trong đó. Như bạn có thể biết, bạn không thể sử dụng các ký hiệu nhất định trong tên tệp.

Cheers

Answer 3

Tôi sử dụng thành công phương pháp sau đây trong một tập tin,

Nhưng đưa ra chính xác những lỗi tương tự một lần nữa ... Chỉ dòng cuối cùng đưa ra lỗi

Newpath = Mid(ThisWorkbook.FullName, 1, _ 
Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name)) & "\" & "ABC - " & Format(Date, "dd-mm-yyyy") & ".xlsm" 
ThisWorkbook.SaveAs (Newpath) 

Answer 4

Cách dễ nhất để sử dụng chức năng này là bắt đầu bằng cách 'Ghi một Macro'. Khi bạn bắt đầu ghi, lưu tệp vào vị trí bạn muốn, với tên bạn muốn, và sau đó tất nhiên đặt loại tệp, rất có thể 'Excel Macro Enabled Workbook' ~ 'XLSM'

Dừng ghi và bạn có thể bắt đầu kiểm tra mã của bạn.

tôi đã viết đoạn code dưới đây cho phép bạn lưu một bảng tính bằng cách sử dụng con đường nơi mà các tập tin ban đầu được vị trí, đặt tên nó là "tổ chức sự kiện [ngày trong phòng giam 'A1']"

Option Explicit 

Sub SaveFile() 

Dim fdate As Date 
Dim fname As String 
Dim path As String 

fdate = Range("A1").Value 
path = Application.ActiveWorkbook.path 

If fdate > 0 Then 
    fname = "Event " & fdate 
    Application.ActiveWorkbook.SaveAs Filename:=path & "\" & fname, _ 
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
Else 
    MsgBox "Chose a date for the event", vbOKOnly 
End If 

End Sub 

Sao chép mã vào một mô-đun mới và sau đó viết ngày trong ô "A1" 01-01-2016 -> chỉ định phụ cho một nút và chạy. [Lưu ý] bạn cần tạo một tệp lưu trước khi tập lệnh này hoạt động vì một sổ làm việc mới được lưu vào vị trí tự động lưu mặc định!

Answer 5

Có thể định dạng mặc định của bạn không khớp với đuôi tệp. Bạn nên chỉ định định dạng tệp cùng với tên tệp, đảm bảo định dạng phù hợp với tiện ích mở rộng:

With someWorkbook 
.SaveAs "C:\someDirector\Awesome.xlsm", fileformat:=xlOpenXMLWorkbookMacroEnabled 
End With 

OTOH, tôi không thấy phần mở rộng trên tên tệp .SaveAs của bạn. Có lẽ bạn cần phải cung cấp một khi làm điều này lập trình. Điều đó có ý nghĩa - không phải cung cấp một phần mở rộng từ giao diện GUI là thuận tiện, nhưng chúng tôi lập trình dự kiến ​​sẽ viết mã rõ ràng. Tôi đề nghị thêm phần mở rộng và định dạng phù hợp. Xem this msdn page để biết danh sách các định dạng tệp. Thành thật mà nói, tôi không nhận ra rất nhiều o descriptions.

xlExcel8 = 56 là.xls định dạng

xlExcel12 = 50 là định dạng .xlsb

xlOpenXMLWorkbook = 51 là định dạng .xlsx

xlOpenXMLWorkbookMacroEnabled = 52 được định dạng .xlsm

xlWorkbookDefault là cũng liệt kê với một giá trị của 51, mà câu đố tôi kể từ khi tôi nghĩ rằng định dạng mặc định có thể được thay đổi.