我有一个Excel电子表格。
我想将条形码和数量数据从Excel工作表复制到CSV文件,如下所示:
一万零一千三百二万零五百四十六
一万零一三三万三百三十
一万零一三四零三六零
具有以下代码:
Dim i As Long, lastrow As Long
' Sheet name is İrsaliye
lastrow = Sheets("İrsaliye").Range("C1000").End(xlUp).Row
For i = 23 To lastrow
Cells(i, "C").Copy
Cells(i, "I").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\oguz\Desktop\csv\yourCSV.csv" _
, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next
它只是把最后的数量数据366到csv文件。
如果我使用下面的代码行
Range("C23:C25").Copy
代替
Cells(i, "C").Copy
它把所有的数据从条形码代码到CSV,但在这种方式下,我不能把数量到CSV文件。
1条答案
按热度按时间2nbm6dog1#
请尝试以下操作: