Question

我已经创建了一个代码，当点击一个按钮时，该代码将保存来自我的Excel电子表格的两列数据。我想创建一个For循环，它将保存多个文本文件。每个文本文件将具有来自列B的数据，但是对于第二列，将从列C循环到列N.I.e。第一个文本文件将包含B列和C列的数据，第二个文本文件将包含B列和D列的数据，第三个文本文件将包含B和E列等。

这是我到目前为止的代码，没有循环

Private Sub CommandButton1_Click()

Dim wbText As Workbook
Dim wsReports As Worksheet

Set wbText = Workbooks.Add

Set wsReports = ThisWorkbook.Worksheets("Temps_protected_profile")

With wsReports

    Dim lRow As Long
    lRow = .Range("B" & .Rows.Count).End(xlUp).Row

    wbText.Sheets(1).Range("B1") = "<TEMPERATURES>"
    wbText.Sheets(1).Range("B2") = lRow - 2

    .Range("B3:B" & lRow).Copy wbText.Sheets(1).Range("B3")
    .Range("C3:C" & lRow).Copy wbText.Sheets(1).Range("C3")


End With

Application.DisplayAlerts = False

With wbText

    .SaveAs Filename:="C:\Users\Tom\Desktop\Cell1.txt", _
    FileFormat:=xlText
    .Close False

End With

Application.DisplayAlerts = True

End Sub

在命名每个文本文件方面，我只是想在每次名称的末尾添加一个数字，即第一个文本文件将被称为＆＃39; Cell1＆＃39;，第二个将被称为＆＃39; Cell2。＆＃39;

如果有人可以帮助我解决这些问题，那么我们将非常感激！我对VBA来说是全新的，我真的很难开始循环

Answer 1

没有你的文件我没有测试它，但我相信它应该可以工作。

Private Sub CommandButton1_Click()

Dim wbText As Workbook
Dim wsReports As Worksheet
Dim i as Long
Set wsReports = ThisWorkbook.Worksheets("Temps_protected_profile")    
For i = 3 to 14
Set wbText = Workbooks.Add

With wsReports
    Dim lRow As Long
    lRow = .Range("B" & .Rows.Count).End(xlUp).Row

    wbText.Sheets(1).Range("B1") = "<TEMPERATURES>"
    wbText.Sheets(1).Range("B2") = lRow - 2

    .Range("B3:B" & lRow).Copy wbText.Sheets(1).Range("B3")
    .Range(.Cells(3,i), .Cells(lRow,i)).Copy wbText.Sheets(1).Range("C3")

End With
Application.DisplayAlerts = False

With wbText

    .SaveAs Filename:="C:\Users\Tom\Desktop\Cell" & i - 2 & ".txt", _
    FileFormat:=xlText
    .Close False

End With
Application.DisplayAlerts = True
Next

End Sub

Answer 2

您可以遵循此代码（请参阅解释说明）

Option Explicit

Private Sub CommandButton1_Click()
    Dim firstColumnRng As Range
    Dim cell As Range

    With ThisWorkbook.Worksheets("Temps_protected_profile") 'reference "source" sheet
        Set firstColumnRng = .Range("B3", .Cells(.Rows.Count, "B").End(xlUp)) ' set referenced sheet range to be copied as first column
        For Each cell In .Range("C3:N3") ' loop through referenced sheet columns C to N
            With Workbooks.Add 'add and reference a new workbook
                With .Sheets(1) ' reference new workbook first sheet
                    .Range("B1:B2") = Application.Transpose(Array("<TEMPERATURES>", firstColumnRng.Rows.Count)) ' write two cells in one shot with Array() function
                    firstColumnRng.Copy .Range("B3") ' copy "source" sheet first column values and paste them into referenced sheet from cell B3 downwards
                    cell.Resize(firstColumnRng.Rows.Count).Copy .Range("C3") ' copy "source" sheet current loop cell column values and paste them into referenced sheet from cell C3 downwards
                End With

                Application.DisplayAlerts = False
                .SaveAs Filename:="C:\Users\Tom\Desktop\Cell" & Format(cell.Column - 2, "00") & ".txt", FileFormat:=xlText 'save referenced workbook
                .Close False 'close referenced workbook without saving changes
                Application.DisplayAlerts = True
            End With
        Next
    End With
End Sub

VBA创建for循环以将数据复制到单独的文本文件中

2 个答案: