[已解决]在VBA代码中 这样的文件夹如何表示

lijian8003

Sub 导入()
For x = 1 To 42
Sheets("x").Select
Application.DisplayAlerts = False
Dim s() As String
Open "d:\分解\软件\Right("000" & x, 4)\lishi\" & "1.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
[A2].Resize(UBound(s) + 1, 1) = WorksheetFunction.Transpose(s)
[A:A].TextToColumns [A2]
Application.DisplayAlerts = True
Next
End Sub

加红部分的文件夹0001 0002 ... 0042，如何表示？

最佳答案

月排行榜 / 总排行榜

zjdh

2015-12-14 08:21

Open "d:\分解\软件\Right("000" & x, 4)\lishi\" & "1.txt" For Input As #1
改成
Open "d:\分解\软件\" & Format( x, "0000") & "\lishi\1.txt" For Input As #1

跳转到最佳答案楼层

hsl215

将 "d:\分解\软件\Right("000" & x, 4)\lishi\"换成 "d:\分解\软件\"&"Right("000" & x, 4)"&"\lishi\"试试

lijian8003

hsl215 发表于 2015-12-13 23:34
将 "d:\分解\软件\Right("000" & x, 4)\lishi\"换成 "d:\分解\软件\"&"Right("000" & x, 4)"&"\lishi\"试试

显示错误警示：000缺少AS

zjdh

Open "d:\分解\软件\Right("000" & x, 4)\lishi\" & "1.txt" For Input As #1
改成
Open "d:\分解\软件\" & Format( x, "0000") & "\lishi\1.txt" For Input As #1