使用pastespecial将excel数据复制到csv中

-1

我需要从我的excel表格导出数据到csv。我有这样的代码。但我的Excel数据中的一些列中有公式。所以，出口到“csv”时，我得到的是“0”而不是价值。使用pastespecial将excel数据复制到csv中

是否有对csv的pastespecial支持？！或者以任何其他方式将单元格值导出为csv。

我当前的代码是：

Sub submit_task() 
' 
' submit_task Macro 
' 

' 
Dim Filename As String 
Dim WB As Workbook 

Application.DisplayAlerts = False 

Filename = "Job_Details.csv" 

'Copy the contents of required sheet ready to paste into the new CSV 
Sheets("output_sheet").Range("A3:C4").Copy 'Define your own range 

'Open a new XLS workbook, save it as the file name 
Set WB = Workbooks.Add 
With WB 
    .Title = "Job Details" 
    .Subject = "Task Submitted" 
    .Sheets(1).Select 
    ActiveSheet.Paste 
    .SaveAs "C:\UI\" & Filename, xlCSV 
    .Close 
End With 

Application.DisplayAlerts = True 

End Sub

来源

2016-08-02 SanjChau

尝试用'ActiveSheet.Range（ “A1”）。PasteSpecial的xlPasteValues' – Slai

尝试PasteSpecial方法。

见的资源在这里MSDN： https://msdn.microsoft.com/en-us/library/office/ff839476.aspx

另请参见这里： Excel VBA Copy Paste Values only(xlPasteValues)

你可能也想尝试： ActiveSheet.PasteSpecial xlPasteValues

像这样：

'Open a new XLS workbook, save it as the file name 
Set WB = Workbooks.Add 
With WB 
    .Title = "Job Details" 
    .Subject = "Task Submitted" 
    .Sheets(1).PasteSpecial xlPasteValues 
    .SaveAs "C:\UI\" & Filename, xlCSV 
    .Close 
End With

来源

2016-08-02 16:31:27 GisMofx

更换'ActiveSheet.Paste'我试过了。对于pasteSpecial，我得到一个错误，“PasteSpecial方法的工作表类失败”。 – SanjChau

@SanjChau我已经添加了更多示例代码供您试用 – GisMofx

仍然是相同的错误:( – SanjChau

我测试这个，它不会生成吃了一个错误。我认为你可能会遇到的问题是，Excel如何处理与从头开始创建的新工作簿的交互，然后粘贴到该工作簿上。在这种情况下，我只创建了一个新工作表，将数据复制到新工作表，然后将工作表移动到其自己的工作簿实例中。然后将新实例保存在所需的CSV中并关闭。

Sub Create_CSV() 
    Application.DisplayAlerts = False 
'Select & copy data for CSV 
    Range("A3:C4").Select 
    Selection.Copy 
'Add a new sheet to become your csv and paste data 
    Sheets.Add After:=ActiveSheet 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
    Application.CutCopyMode = False 
'Move the sheet into it's own instance 
    ActiveSheet.Move 
'Rename the tab 
    ActiveSheet.Name = "Task Submitted" 
'Save the WB as a CSV and close 
    ActiveWorkbook.SaveAs Filename:="C:\UI\Job_Details.csv", FileFormat:= _ 
    xlCSVMSDOS, CreateBackup:=False 
    ThisWorkbook.Saved = True 
    ActiveWindow.Close 
    Application.DisplayAlerts = True 
End Sub

来源

2016-08-02 18:59:26 viper941

使用pastespecial将excel数据复制到csv中

回答

相关问题