Excel 有没有办法让我正在创建和写入的.txt文件以所选区域左上角单元格中的文本命名？

我对VBA非常陌生，正在尝试编写一个模块，创建并写入一个包含活动单元格中信息的.txt文件，作为自动化报告的更大项目的一部分。模块将循环通过，激活特定单元，直到完成（但这将是另一个模块的一部分）。我需要以选定范围内左上角的单元格命名该文件，但无法确定如何集成该文件

Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j  As Integer
myFile = Application.DefaultFilePath & "\(Cells(B, 7).Value).txt"
Set rng = Selection

Open myFile For Output As #1
For i = 1 To rng.Rows.Count
    For j = 1 To rng.Columns.Count

cellValue = rng.Cells(i, j).Value

If j = rng.Columns.Count Then
Print #1, cellValue
Else
    Print #1, cellValue,
End If

    Next j
Next i
Close #1
End Sub

---

我希望

Application.DefaultFilePath&“\（Cells（I，j）.Value）.txt”

在第一个单元格后命名文件，但它将我的文件命名为（Cells（I，j）.Value.txt

引号中的所有内容都将按字面意思处理，因此您需要从内部删除该位，即

myFile = Application.DefaultFilePath & "\" & Cells(7,"B").Value & ".txt"

以选定内容的左上角为基础

myFile = Application.DefaultFilePath & "\" & Selection(1).Value & ".txt"

---

谢谢你的快速回复。这将在此行返回1004应用程序定义或对象定义错误。

B

未定义-您是指B列吗？否则，我需要知道它代表什么。我的意思是B列。我把它放在那里作为一个测试，看看它是否会工作，但最终目标是让文件命名为左上角的单元格，在任何范围内被选中。嗨，只需将B替换为数字2（第二列）已添加第二行。