VBA使用保存對話框創建帶有文件名的新工作表並保存爲CSV格式

我的要求是我有一張帶有一些數據和一個必須在所述任務下面執行的按鈕。VBA使用保存對話框創建帶有文件名的新工作表並保存爲CSV格式

任務是，一旦點擊了按鈕，它必須要求文件名和位置以csv格式保存到新工作表中，並且活動工作表中的數據必須被複制並粘貼在新工作表中，新的表格應該是以CSV格式保存文件的名稱。

任何人都可以請幫忙嗎？

來源

2017-04-12 DINESHKUMAR PALANISAMY

做了SO的搜索，這種類型的問題已經多次回答了。 – Sorceri

你可以給我鏈接，如果你有任何@ Sorceri –

我不會因爲那是我爲你做的搜索，重點是你可以有一個答案，如果你只是做一個搜索，頁面頂部，搜索vba保存工作表CSV，從字面上看，第一次打擊會給你一個答案。 – Sorceri

這應該做的伎倆，編輯品嚐。將宏保存到一個新模塊，然後添加一個按鈕開發人員選項卡>插入>按鈕。將按鈕分配給此宏。

Sub SaveWorksheetsAsCsv() 

Dim WS As Excel.Worksheet 
Dim SaveToDirectory As String 

Dim CurrentWorkbook As String 
Dim CurrentFormat As Long 

CurrentWorkbook = ThisWorkbook.FullName 
CurrentFormat = ThisWorkbook.FileFormat 
' Store current details for the workbook 

'Change the path, must end with \ 
SaveToDirectory = "C:\Users\username\Documents\test\" 
For Each WS In ThisWorkbook.Worksheets 
    Sheets(WS.Name).Copy 
    ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV 
    ActiveWorkbook.Close savechanges:=False 
    ThisWorkbook.Activate 
Next 
'edit/remove the for loop to suit 
End Sub

信貸到期的貸方。改編自這個答案： Saving excel worksheet to CSV files with filename+worksheet name using VB

來源

2017-04-12 18:35:12 primohacker

VBA使用保存對話框創建帶有文件名的新工作表並保存爲CSV格式

回答

相關問題