输入超出文件尾，头疼了。

URBest · 发表于 2019-10-21 22:50

大家好，Sub Macro1() Dim f$, s() As String, t$, v&, c As Object
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.csv")
While f > ""
      Open p & f For Input As #1
      s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
      Close #1。我把里面的 f = Dir(p & "*.csv")改为 f = Dir(p & "*.XSLX")后，运行到s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)后提示输入超出文件尾。麻烦老师们指导下。

liulang0808 · 发表于 2019-10-21 22:56

楼主逐行读取试试看吧
如果还有问题，建议上传问题附件，便于大家解答的

我是来讨说法的 · 发表于 2019-10-22 08:50

csv其实就是文件文件

Chip_Kenny · 发表于 2019-10-22 09:29

Open p & f For Input As #1 方法是用在文本文件上的.

URBest · 发表于 2019-10-22 11:28

Chip_Kenny 发表于 2019-10-22 09:29
Open p & f For Input As #1 方法是用在文本文件上的.

请教下，打开XLSX格式的话的代码。谢谢

Chip_Kenny · 发表于 2019-10-22 13:39

紅字就是:

Sub zz()
With Application.FileDialog(msoFileDialogOpen)
.Show
If .SelectedItems.Count Then f = .SelectedItems(1) Else Exit Sub
End With
[color=Red]Workbooks.Open f[/color]
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 输入超出文件尾，头疼了。

评分

最新热点 /1