Cần Giúp Code Lưu File Excel? (1 người xem)

[HunterGames]

Mình đang tham gia 1 số dự án, dùng file excel lặp đi lặp lại. Nên mình muốn xin code VBA lưu file để đơn gián bớt 1 số công đoạn.
Code:

1. Lấy tên file excel đã nằm trong cilpboard
2. Đường dẫn file mặc định
3. Kiểu file sẽ là Excel Workbook (không chứa marco)

=>khi nhấn marco: tự F12 ->tự chọn đường dẫn mặc định-> tự điền tên file excel có trong clipboard -> tự đổi kiểu file Excel Workbook-> Lưu file

Mong mọi người giúp đỡ. Thanks

 

[HunterGames]

Giúp mình với!

 

[HeSanbi]

Mình đang tham gia 1 số dự án, dùng file excel lặp đi lặp lại. Nên mình muốn xin code VBA lưu file để đơn gián bớt 1 số công đoạn.
Code:

1. Lấy tên file excel đã nằm trong cilpboard
2. Đường dẫn file mặc định
3. Kiểu file sẽ là Excel Workbook (không chứa marco)

=>khi nhấn marco: tự F12 ->tự chọn đường dẫn mặc định-> tự điền tên file excel có trong clipboard -> tự đổi kiểu file Excel Workbook-> Lưu file

Mong mọi người giúp đỡ. Thanks

Lưu thành file mới hay cũ, Trong Clipboard mà chuyển thành tên cho file thì bó tay, cho tên File cụ thể hoặc theo Timer thì còn khả thi
Code gợi ý:

Sub GPE()
Dim Tick As String
Dim ngay, arr
ngay = Now
arr = Sheet1.Range("A1").Value2 'Ten File o Sheet1 o A1, hoac arr = "DuLieu" thi File DuLieu20160229 5
Tick = arr & Format(ngay, "yyyymmdd h") & ".xlsx"
    With ActiveWorkbook
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Dulieu\" & Tick, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    End With
End Sub

Code trên chỉ là lưu tên mới ở một Đường dẫn khác mà thôi !

 

[HunterGames]

Thật ra dự án mình làm xuất ra file txt, mà yêu cầu cũng có file excel (cùng tên và thêm 1 số từ cố định phía sau). Nên mình muốn biết có code VBA nào có thể lấy tên file txt để đặt cho file excel.

VD: file txt= S-005-1
=> file excel = S-005-1-ab (Kiểu như vậy. -ab sẽ cố định)


Mình cũng dạo quanh các diễn đàn thấy có bảo sử dụng Microsoft Forms 2.0 Object Library để lấy dữ liệu từ clipboard. Nhưng không biết code như thế nào để gán vào Khung File name trong Save as[h=3][/h]

 

[HeSanbi]

Thật ra dự án mình làm xuất ra file txt, mà yêu cầu cũng có file excel (cùng tên và thêm 1 số từ cố định phía sau). Nên mình muốn biết có code VBA nào có thể lấy tên file txt để đặt cho file excel.

VD: file txt= S-005-1
=> file excel = S-005-1-ab (Kiểu như vậy. -ab sẽ cố định)


Mình cũng dạo quanh các diễn đàn thấy có bảo sử dụng Microsoft Forms 2.0 Object Library để lấy dữ liệu từ clipboard. Nhưng không biết code như thế nào để gán vào Khung File name trong Save as

Trong VBA vào Tool vào References...Tìm chọn Microsoft Forms 2.0 Object Library không có thì Browser tìm thôi rồi áp dụng code này thử xem, nhớ tạo Folder DuLieu trong D:/, không thì tùy ý thay đổi, nên nhớ là copy tên rồi nó mới nằm trong Clipboard được.

Sub GPE()    
Dim clipboard As MSForms.DataObject
    Dim str1 As String
    Dim Tick As String
    Set clipboard = New MSForms.DataObject
    clipboard.GetFromClipboard
    str1 = clipboard.GetText
    Tick = str1 & "-ab" & ".xlsx"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Dulieu\" & Tick, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Lưu CSV (tương tự TXT)

'''''''''''''''''''''''
Dim Tick2 As String
Tick2 = str1 & ".csv"
[COLOR=#333333]ActiveWorkbook.SaveAs Filename:= _[/COLOR]
[COLOR=#333333]"[/COLOR]D:\Dulieu\" & Tick2[COLOR=#333333], FileFormat:=xlCSV _[/COLOR]
[COLOR=#333333], CreateBackup:=False
[/COLOR]'''''''''''''''''''''''''''''