-
本版专家分：0结帖率 0% -
vba菜鸟在使用VBA将批量txt导入excel时发现老是在Open FileName(t) For Input As #i 运行时发生错误75 ，调整了几次文件位置和文件名格式都没用，各路大神有没有更好的解决办法呀？
在excel模块中运行的VBA代码如下：
Option Explicit
Public Const sPath As String = "F:\Output860" '读取txt的路径
Dim FileName() As String '要处理的文件名
Dim MyString() As String '从text中读取内容
Sub ReadFile()
Dim getLine '每次读取一行数据
Dim i%, t%, k%
i = FreeFile
Open "F:\list.txt" For Input As #i ' 打开含有所需要读取的TXT文件名的文件。
Do While Not EOF(i)
Input #i, getLine '将数据读入变量。
t = t + 1
Loop
k = t - 1
ReDim FileName(k), MyString(k)
t = 0
Seek #i, 1 '设置文件的第一条记录
Do While Not EOF(i)
Input #i, FileName(t)
FileName(t) = sPath & "\" & FileName(t)
t = t + 1
Loop
Close #i ' 关闭文件。
'读取txt内容到本excel表格
For t = 0 To k
i = FreeFile
Open FileName(t) For Input As #i ‘老是发生文件错误
Do While Not EOF(i)
Input #i, getLine
MyString(t) = MyString(t) & vbNewLine & getLine
Loop
Close #i
With ThisWorkbook.Sheets(1)
.Cells(t + 1, 1) = FileName(t)
.Cells(t + 1, 2) = Right(MyString(t), Len(MyString(t)) - 2)
End With
Next t
End Sub
-
本版专家分：40
-
错误代码75的话是文件没有被找到。
文件路径和文件格式的问题。
- Qt5.8 打开指定路径txt文件 读写TXT文件
使用Qt5.8 打开指定路径txt文件并显示内容 可以将内容保存到固定路径 优化代码，通俗易懂，先看图片说明
- open data structure (in c++)
open data structure (in c++)
- win10 null.sys 文件 fatal:open /dev/null or dup failed: No such file or directory
win10安装git报错 fatal:open /dev/null or dup failed: No such file or directory错误，将该文件复制到C:\Windows\System32\drivers 替换掉原有的null.sys文件重启即可
- Office Open XML 文件格式简介
在Microsoft Office的早期版本中，由Microsoft Office Excel, Microsoft Office PowerPoint和Microsoft ...但是，与早期文件不同的是Office Open XML格式的文件能够被打开显示器中的组件，使得您能够访问此文件的结构。
- fatal: open /dev/null or dup failed: No such file or directory（解决文件）
fatal: open /dev/null or dup failed: No such file or directory 解决文件
- VB-判断打开的文件，并显示其路径.rar
VB-判断并获取打开文件的路径，本例以打开一个图片文件为例，显示图片的路径信息，要实现这一功能，请参看以下代码： Private Sub Command1_Click() On Error Resume Next With CommonDialog1 '设置初始化...
- Open Design Specification for .dwg files Version 5.3
Open Design Specification for .dwg files Version 5.3是由ODS组织编写的dwg技术文档。供大家参考。
- VC 6.0顺序逐行读取TXT文件内容.rar
VC 6.0 按顺序逐行读取TXT每行的数据内容，一行一行读取，基本的步骤和思路是：创建文件对话框、获得文件路径、打开文件、读文件、关闭文件。下面来看看具体的代码实现： //创建文件对话框 CFileDialog dlg(TRUE...
- Android代码-在线网校Open EdX安卓版客户端
This is the source code for the edX mobile Android app. It is changing rapidly and its structure should not be relied upon. See http://code.edx.org for other parts of the edX code base. It requires ...
- 利用ftpclient下载文件，解决用window.open打开ftp地址中有中文，不能下载的问题
利用ftpclient下载文件，解决用window.open打开ftp地址中有中文，不能下载的问题
- cmd操作命令和linux命令大全收集
dir 查看文件，参数：/Q显示文件及目录属系统哪个用户，/T:C显示文件创建时间，/T:A显示文件上次被访问时间，/T:W上次被修改时间 date /t 、 time /t 使用此参数即“DATE/T”、“TIME/T”将只显示当前日期和时间，...
- c++读写in文件封装类
这是根据windows api再封装的一个读写ini配置文件的封装类，用起来会非常方便，可以一次读取所有的section和key以及value
- SIEMENS/UNIFY OpenStage HFA/SIP 话机设置文档
以OpenStage 15 HFA话机为例，一步步设置拍照截图做出的文档，供参考！
- Python处理中文路径
Python处理中文路径 方法 解决办法 # -*- coding: utf-8 -*- filepath=unicode(filepath,'utf8') fobj=open(filepath,"r") f = codecs.open('c:/intimate.txt','r','utf-8') s = f.readlines() f.close()
- mfc中打开目录浏览选择文件保存路径
资源内容包含.h和.cpp文件，主要实现了打开系统目录选择文件保存路径的功能。
- 阿里钉钉微应用开发
本课程针对阿里钉钉微应用开发，在钉钉上开发企业个性化的功能，以及与企业自身ERP进行对接，移动端与PC端无缝衔接。本课程前端开发语言为javascript，后端语言为c#
- VB 检测文件是否存在.rar
Open filename$ For Input As n% '打开文件 If Err Then '根据错误返回值判断 jc% = False '没检测到 Else jc% = True '检测到指定文件 End If Close n% '关闭文件 End Function
- UG Open GRIP 实用编程基础
UG Open GRIP 实用编程基础 UG NX SIMENS
- ububtu下 qt-everywhere-opensource-src-4.8.5.tar 文件 可在乌班图下编译成3个版本
ububtu下 qt-everywhere-opensource-src-4.8.5.tar 文件 可在乌班图下编译成3个版 因文件太大上传的是百度网盘资源 永久有效