使用 VBA，无法将单元格值存储在变量中并引发 1004 错误

Question

我正处于 vba 的学习阶段。我试图将一个值存储在一个变量中，但不能使用 Cell 和 Range，它会引发 1004 错误

下面是我的代码

Sub myself()

Dim str As String
Dim rock As String
Dim MaxStrLen As Integer
Dim StrLen As String
Dim LastRow As Long
Dim LastCol As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Integer
Dim j As Integer

Dim FilePath As String

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

Open "C:\Users\Antony\Desktop\test.txt" For Output As #2

ws1.Activate

With ws1
For i = 0 To LastRow
For j = 0 To LastCol

.Range(.Cells(i, j)).Value = str

Next j

Next i

Print #2, str
End With

Close #2

End Sub

突出显示的行是 1004 错误。请帮助解决并存储在记事本中的变量中。

提前致谢！

Answer 1

随便用

.Cells(i, j).Value = str

顺便说一句，您最好明确限定您的范围引用到 worksheet 对象（并且，如果涉及多个工作簿，最多到 workbook 对象），否则它会隐式假定 ActiveSheet（和 ActiveWorkbook）

所以，而不是

LastRow= Cells(Rows.Count, 1).End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

使用

LastRow= ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
LastCol = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column

或

With ws1
    LastRow= .Cells(.Rows.Count, 1).End(xlUp).Row
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With

---

所以你的代码可以重构如下：

Option Explicit

Sub myself()

    Dim str As String
    Dim LastRow As Long
    Dim LastCol As Long
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim i As Long
    Dim j As Long

    Dim FilePath As String

    Set ws1 = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")


    Open "C:\Users\Antony\Desktop\test.txt" For Output As #2

    With ws1
        LastRow = .Cells(.Rows.count, 1).End(xlUp).Row
        LastCol = .Cells(1, .Columns.count).End(xlToLeft).Column

        For i = 1 To LastRow
            For j = 1 To LastCol
                str = .Range(.Cells(i, j)).Value
                Print #2, str
            Next
        Next
    End With

    Close #2

End Sub