(VBA)通过TextStream以FileSystemObject身份读取txt文件时抛出错误
(VBA)通过TextStream以FileSystemObject身份读取txt文件时抛出错误。
当使用VBA中的FileSystemObject以TextStream的方式读取txt文件时，可能会遇到一些错误。这些错误可能是由于文件路径错误、文件不存在、权限问题或文件内容格式不正确等引起的。
解决这个问题的方法如下：
- 确保文件路径正确：检查文件路径是否正确，包括文件名、文件夹路径和文件扩展名。确保文件存在于指定的路径中。
- 检查文件权限：确保你有足够的权限来读取该文件。如果文件受到保护或只有特定用户才能访问，你可能需要获取相应的权限。
- 检查文件内容格式：确保文件内容符合你的读取方式和期望的格式。如果文件内容不正确，可能会导致读取错误。
- 使用适当的编码方式：如果你的txt文件使用了特殊的字符编码方式（如UTF-8），你需要在读取文件时指定正确的编码方式，以确保正确读取文件内容。
- 错误处理：在代码中添加适当的错误处理机制，以便在出现错误时能够捕获并处理异常。可以使用VBA中的Try-Catch语句或错误处理函数来处理可能的错误。
对于VBA中的TextStream读取txt文件的问题，腾讯云提供了一系列的云原生解决方案，如云函数（Serverless）、云数据库（TencentDB）和对象存储（COS），可以帮助开发者更好地处理文件读取和处理的需求。你可以通过以下链接了解更多关于腾讯云相关产品的信息：
- 云函数（Serverless）：https://cloud.tencent.com/product/scf
- 云数据库 TencentDB：https://cloud.tencent.com/product/cdb
- 对象存储（COS）：https://cloud.tencent.com/product/cos
请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估。
相关·内容
我正在编写一个makro来读取数千个大的文本文件，分析它们的内容，并将其内容的所需部分保存到我的Excel工作表中。在另一个线程上，它说TextStream对象的readAll方法是一个很好的方法，所以我复制了一段代码，并围绕它构建了我的makro。每几百个文本文件抛出一个奇怪的错误。再说一次:在我启动makro之前，抛出错误的文本文件中有内容(据我所知，它看起来像任何其他文本文件)，但当Excel抛出</e
浏览 12提问于2018-08-27得票数 0
回答已采纳
2回答
我正在运行下面的代码，它工作得很好-它用Sheet1上的单元格B1中指定的名称创建我的文件，但是当我将我的工作表命名为其他名称(例如FileNames)时，它会给我一个错误。Sub OpenFiles()Dim ts As Scripting.TextStream
Set fso = New Scripting.FileSystemObject.txt", ""
浏览 0提问于2016-04-05得票数 0
1回答
我希望使用VBA将文本文件中的内容复制到Excel单元格中。我可以从大多数文本文件中成功地做到这一点。但是对于某些文件，代码只将部分数据复制到excel文件中。当以excel文件的形式打开某些文本文件时，一些内容在单元格A1中存在，其余内容在单元格A2中。1)在excel中打开内容包含在不同单元格中的文本文件
fwi！3 F5A！041！
浏览 4提问于2013-08-22得票数 3
回答已采纳
有没有办法在不打开csv文件的情况下将数据从CSV文件检索到excel工作表中？我在windows个人电脑上工作。Excel工作表和CSV文件位于一个文件夹中。我还有一个正在运行的程序，它不断更新CSV文件中的数据。如果我直接打开CSV文件，那么程序将停止运行。因此，我需要一个替代的解决方案来读取数据从CSV文件，而不是打开它。任何帮助都将不胜感激！
浏览 0提问于2014-03-12得票数 0
如何通过javascript或jquery逐行读取一个巨大的文本文件？我不能全部读取并拆分成一个数组，因为它需要大量内存。我只想把它串流。
浏览 2提问于2012-02-23得票数 0
2回答
我有一个包含文本文件的文件夹。正文如下：xx 1 zz // dim fso=createobject("scripting.filesystemObject") dim path as string
浏览 0提问于2016-07-20得票数 0
所以我对VB非常陌生，我只是尝试创建一些东西，打开一个.txt文件，然后读取第一行并输出它。我已经将我的代码放在下面，但是当我运行它时，我会得到错误
objTXT=objFSO.OpenTextFile("C:\..."Private Sub Text_Reader()
Dim objTXT As TextStream
浏览 3提问于2015-07-22得票数 2
回答已采纳
1回答
我不是VBA程序员。然而，我有一个“不愉快”的任务，那就是用另一种语言重新实现某人的VBA代码。VBA代码由75个模块组成，这些模块使用一个庞大的“计算表”来存储所有“全局变量”。
浏览 1提问于2012-06-25得票数 4
回答已采纳
在其中一种情况下，当我尝试在vb.net中使用文件系统对象创建文件和写入数据时，我得到了Exception from HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED)const ForWriting = 2file= fso.opentextfile
浏览 0提问于2012-07-17得票数 0
在进行了必要的修改之后，我将关闭该文件，以便其他用户能够锁定它，并在必要时修改共享的xlsm。Workbooks.Open可以处理这些路径名(在我读取和测试自己的时)，但我不希望在Excel中打开该文件，只希望将其锁定在操作系统级别上，直到我完成修改。Public Sub GetExclusiveAccess()
Dim fso As <e
浏览 3提问于2019-11-11得票数 3
我有一个VBA脚本，添加工作表到大约500个excel文件。我运行VBA脚本并添加简单的工作表没有任何问题，但是当我尝试添加一个包含VBA脚本以及图形和按钮的工作表时，它会工作一段时间，然后冻结。我知道它没有错误处理--有什么建议可以解决这个问题，或者是什么原因导致excel冻结？Sub FindOpenFiles()
Set oFSO = New FileSystemObject
Dim txtStream As
浏览 0提问于2013-08-09得票数 7
回答已采纳
4回答
我已经写了一个VBA程序，它在Workbook_Open上创建一个将错误写入错误日志的文件流。如果我遇到致命错误(因此需要暂停执行宏)，程序将执行一条End语句，从而突然停止宏。我知道这个解决方案不是一个理想的解决方案，但是如果我有几个函数(例如，一个函数调用了另一个函数，而另一个函数又调用了另一个函数，而第三个函数产生了错误)，我看不到更好的方法来快速结束事情。退出发生错误的函数将只影响该特定函数，从而导致无效数据、意外单元格值等的可能性。
但是这种方法会导致另一个问
浏览 2提问于2013-08-01得票数 2
当我试图逐个读取dir中的所有文件时，我得到了这个错误，同时也读取了里面的文本。它只对第一个文件运行良好，但当它启动另一个循环并从该文件夹获取安全文件时，就会出现问题。theString As String Dim StrFile, str_5 As String
Dim fso As New FileSystemObjectDim
浏览 1提问于2017-01-27得票数 1
回答已采纳
我有一个txt文件，其中包含几个raws (> 1000)。我想逐行读取这个文件，每次都将它们复制到新的excel工作表(单元格A1)中。txt文件的每个原始文件都包含excel公式，用于通过Internet从金融数据库生成数据请求。因此，每次都必须从数据库中提取数据。我试着自己编写代码，我尝试了两种逐行读取数据的可能性，但是我得到了该行的错误消息，其中我将行写到单元格：
Sheet_i.Cells(1, 1)
浏览 2提问于2015-10-26得票数 0
2回答
在互联网上很容易找到一种写入txt文件的方法，但我找到的总是写在最后一行： Sub write_log(sentence_to_be_written As String)
strFile_Path = "C:\Users\[user_name]\Desktop\log.txt" Print #1, Now() & " --> " & s
浏览 11提问于2020-07-06得票数 0
回答已采纳
(名称)在执行这一行时实际上是filename.vbs...At，我可以在文件夹中成功地看到vbs文件--我使用Textstream.Write将一些内容放入文件中，然后使用Textstream.Close在执行最后一行folder-GONE.时，文件立即从中消失。我已经看到过阻止VBS运行的组策略和AV之类的东西，但这不是我的情况--我对这个用户进行了测试，她没有问题：
在任何一个foldersManually中创建txt文
浏览 8提问于2020-10-05得票数 0
回答已采纳
1回答
我有一个这样的文本文件，-- Begin Line2 ^ Line1 Line3 Dim FileNum As Integer Dim Lines
浏览 3提问于2013-10-22得票数 1
回答已采纳
我很幸运，参考文件将其日期保存为文件名的一部分。
注意:忘记提到目录/引用文件保存在一个网络文件夹中，这将有助于解释为什么访问文件属性要花很长时间。我的代码试图扫描excel文件目录(~650个.xlsx文件)，并查找最新修改的文件。然后返回最新修改的文件。当我去运行它时，它使excel没有响应性，所以我开始调试，我发现它似乎不是一个无限循环，而是一个效率问题:几行代码，实际上运行了650次，每次从1.4秒
浏览 3提问于2022-10-10得票数 0
7回答
需要一个函数，它将接受文件名作为参数，然后返回该文件中的行数。Dim objFSO, strTextFile, strData, arrLines, LineCountstrTextFile = "sample.txt"
'Create a File System Obje
浏览 0提问于2011-09-14得票数 15
回答已采纳
我有6个文本文件在一个文件夹。我尝试了这段代码，但没有成功，因为创建了一个文本文件，但该文本文件为空。谢谢，我下面的代码。文本文件中的行：100;2017-09-26 00:00:00;Valley;D6;..xArray = Array("D1", "D2",
浏览 0提问于2017-09-27得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
