1
我想將數據從excel複製到。以下是我想如何複製數據。例如,我想將Excel1單元格D4
中的數據複製到csv中的A4
。將excel導出到csv
"Excel ---> CSV
"D4-->A4
"F4&all excluding the first character in G4-->B4
"K4-->E4
"L4-->F4
"N4-->G4
"P4-->I4
以下是我的代碼。它會根據需要創建並填充數據,但它不會刪除G4
中的第一個字符,此時B4
將被複制到csv
中。有人可以告訴我,我需要如何更改我的代碼來實現此目的。
Sub csvfile()
Dim fs As Object
Dim a As Object
Dim lngRow As Long
Dim X
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\temp\" & Environ("username") & ".csv", True)
X = Range([d4], Cells(Rows.Count, "P").End(xlUp)).Value2
For lngRow = 1 To UBound(X) - 15
a.writeline X(lngRow, 1) & "," & X(lngRow, 3) & X(lngRow, 4) & ",,," & X(lngRow, 8) & "," & X(lngRow, 9) & "," & X(lngRow, 11) & ",," & X(lngRow, 13)
Next
a.Close
End Sub
它給了我一個類型不匹配。 – user2571551
固定dodgey')'。請再試一次 – brettdj
說無效的程序調用或參數。我曾試過兩種方法。 – user2571551