excel - 如何打开以工作表中的单元格命名的工作簿?
问题描述
我正在尝试将一个 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
解决方案
在这一行
Const txtFldrPath As String = "G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Pepper sync\" & varCellvalue & ".xls"
您已将 txtFldrPath 声明为常量,因此您不能对其使用变量varCellvalue
声明varCellvalue
as 变量,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"
推荐阅读
- linux - 无法在bash中输入日期变量
- c# - 无法将 JSON 反序列化为枚举
- java - 不能在课堂上使用 Toast 功能?
- swift - Viewcontroller 中的视图消失
- angular - Angular:SyntaxError:位置 0 的 JSON 中的意外标记 <
- c# - C# UTF-8 base64 编码在 PHP 中无法正确解码
- android - Lambda 不起作用 .. 即使我正确设置了 JavaVersion.VERSION_1_8,我有什么遗漏吗?
- python - 带括号的正则表达式前瞻
- sql-server - 如何从 INSTEAD OF 触发器中的当前行获取数据?
- c# - 访问字段值时检查 Null 值