第一次问任何东西在这里我一直在VBA的任务做的东西,即使我没有经验,它。我已经阅读了其他文章,这有助于我取得了一些进展,但我试图从一个电子表格中提取一些数据说A10:M10,所以从一行中选择几个单元格,然后我必须让他们在一个预先存在的.csv,有很多领域已经填充,不会改变使用,但我需要得到的数据从A10:M10在csv相当于Z2:Z12,所以一行到一列。这可能吗?到目前为止,我只设法让我的代码填充一个空白的.csv与一些标题,但我真的不认为这是可行的,我键入每一个值的每一个领域。任何帮助都非常感谢。
Sub WriteFile()
Dim ColNum As Integer
Dim Line As String
Dim LineValues() As Variant
Dim OutputFileNum As Integer
Dim PathName As String
Dim RowNum As Integer
Dim SheetValues() As Variant
PathName = Application.ActiveWorkbook.Path
OutputFileNum = FreeFile
Open PathName & "\file.csv" For Output Lock Write As #OutputFileNum
Print #OutputFileNum, "Field1" & "," & "Field2" & "," & "Field3" & "," & "..." & "," & "Field26"
Close OutputFileNum
End Sub
1条答案
按热度按时间u59ebvdq1#
复制行到列