如何打开以工作表中的单元格命名的工作簿？答案

【问题标题】：How to open a workbook named after a cell in the worksheet?如何打开以工作表中的单元格命名的工作簿？
【发布时间】：2020-08-15 18:19:32
【问题描述】：

我正在尝试将一个 txt 文件转换为一个 excel 文件。我有这个的代码。问题是我的 txt 文件每天都会根据日期使用不同的名称。因此，我的工作簿中有一个单元格，名称相同，我想用它来引用正确的工作簿。

当我按 F5 时，我在调用的文件名上收到一个常量表达式所需的错误（第 3 行：“ & varCellvalue & “.xls”）

我要打开的文件名在C1中。

您知道如何解决此错误吗？

我的代码：

Sub Convert()
 DimvarCellvalue As Long
 varCellvalue = Range("C1").Value
    Const txtFldrPath As String = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & varCellvalue & ".xls"
    Const xlsFldrPath As String = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Payments Holidays"
    Dim CurrentFile As String: CurrentFile = Dir(txtFldrPath & "\" & "*.txt")
    Dim strLine() As String
    Dim LineIndex As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    While CurrentFile <> vbNullString
        LineIndex = 0
        Close #1
        Open txtFldrPath & "\" & CurrentFile For Input As #1
        While Not EOF(1)
            LineIndex = LineIndex + 1
            ReDim Preserve strLine(1 To LineIndex)
            Line Input #1, strLine(LineIndex)
        Wend
        Close #1
        With ActiveSheet.Range("A1").Resize(LineIndex, 1)
            .Value = WorksheetFunction.Transpose(strLine)
            .TextToColumns Other:=True, OtherChar:="|"
        End With
        ActiveSheet.UsedRange.EntireColumn.AutoFit
        ActiveSheet.Copy
        ActiveWorkbook.SaveAs xlsFldrPath & "\" & Replace(CurrentFile, ".txt", ".xlsx"), xlOpenXMLWorkbook
        ActiveWorkbook.Close False
        ActiveSheet.UsedRange.ClearContents
        CurrentFile = Dir
    Wend
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

【问题讨论】：

我已将文件引用更改为 txt 而不是 xls，现在我的 Statement Invalid outside Type Block 错误

标签： excel vba filenames

【解决方案1】：

在这一行

Const txtFldrPath As String = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & varCellvalue & ".xls"

您已将 txtFldrPath 声明为常量，因此您不能对其使用变量varCellvalue 将varCellvalue 声明为变量Dim txtFldrPath As String 然后根据需要分配值

Dim txtFldrPath As String
txtFldrPath = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & varCellvalue & ".xls"

【讨论】：