现在在execl里用vba写程序，读取指定网站上的文件内的数据。需要先判断一下该文件是否存在，否则直接打开会出错而无法继续。
我试过dir和FileSystemObject.fileexists 都不行
网站文件的地址在 https://www.ark-funds.com/auto/trades/ARK_ARKF_Trades.xls
麻烦高手指点一下 该如何判断这个文件是否存在
谢谢
-
大家好，
现在在execl里用vba写程序，读取指定网站上的文件内的数据。需要先判断一下该文件是否存在，否则直接打开会出错而无法继续。
我试过dir和FileSystemObject.fileexists 都不行
网站文件的地址在 https://www.ark-funds.com/auto/trades/ARK_ARKF_Trades.xls
麻烦高手指点一下 该如何判断这个文件是否存在
谢谢
展开阅读全文
-
等级
本版专家分：5168勋章
-
- 红花 2015年7月 Windows专区大版内专家分月排行榜第一
-
- 黄花 2021年1月 .NET技术大版内专家分月排行榜第二
-
-
只能用xmlhttp直接把文件下载下来，报404错误就是不存在。
-
等级
本版专家分：30609勋章
-
- 红花 2019年2月 VB大版内专家分月排行榜第一
-
-
黄花
2019年5月 VB大版内专家分月排行榜第二
2018年5月 VB大版内专家分月排行榜第二
-
- 蓝花 2017年7月 VB大版内专家分月排行榜第三
-
-
如果只是判断文件在不在，不一定要全部下载，只要发http的下载请求，对面服务器不返回错误就说明文件存在
当然，也可能是返回一个自定义404界面，要自己判断一下。
-
等级
本版专家分：0勋章
-
- 签到新秀
-
-
http下载请求直接就报错了
本人编程小白 还烦请高手能给出代码 谢谢
先贴出源码
Application.ScreenUpdating = False
Dim strCSV As String
strCSV = "https://www.ark-funds.com/auto/trades/ARK_ARKF_Trades.xls"
X = Sheet1.Range("B65536").End(xlUp).Row + 1
// 需要在这个打开之前 检测一下网络文件是否存在 否则就出错无法执行了 请指导解决代码 谢谢
Workbooks.Open Filename:=strCSV, ReadOnly:=True
i = Worksheets(1).Range("A65536").End(xlUp).Row
Worksheets(1).Range("a5:h" & i).Copy Sheet1.Cells(X, 2)
Workbooks(2).Close
Application.ScreenUpdating = True
MsgBox "数据导入完毕！", vbInformation, "提示"
End Sub
-
等级
本版专家分：5168勋章
-
- 红花 2015年7月 Windows专区大版内专家分月排行榜第一
-
- 黄花 2021年1月 .NET技术大版内专家分月排行榜第二
-
-
dir也好，fso也好，excel对象模型也好，所有操作对象都必须是文件系统的本地文件，无法用来判断一个http协议的文件存在不存在、操作一个http协议的文件甚至是打开一个http协议的文件。做法也和你说了，先下载到本地再操作本地文件。
-
等级
本版专家分：0勋章
-
- 签到新秀
-
-
大侠，如果文件不存在，下载就直接报错啊
我就是想先判断它存不存在，然后再下载
-
等级
本版专家分：5168勋章
-
- 红花 2015年7月 Windows专区大版内专家分月排行榜第一
-
- 黄花 2021年1月 .NET技术大版内专家分月排行榜第二
-
-
不需要提前判断，直接下载就行，如果碰到报错，而且发现是http 404状态码，就代表资源不存在，在这里面处理。
- VBA如何判断指定网站上特定文件是否存在？
需要先判断一下该文件是否存在，否则直接打开会出错而无法继续。 我试过dir和FileSystemObject.fileexists 都不行 网站文件的地址在 https://www.ark-funds.com/auto/trades/ARK_ARKF_Trades.xls</p> ...
- VBA查找指定文件夹下的所有文件（包括子文件夹）
Sub 所有文件夹() Dim fs As New FileSystemObject, arr(), i, j, k Dim fd, subfd As Folder Dim files As file 'Range(“A:A”).Clear Set fp = Application.FileDialog(msoFileDialogFolderPicker) ...
- VBA大杂烩♬ 以及利用VBA查询外部文件中是否包含某一字符串及文件定位方法
——open要与close配合使用，否则会报错文件已打开，若文件不存在，覆盖和追加都会新建文件。关闭文件时要注明文件号。 2、Freefile会调用函数获取可用的空闲的文件号。 3、instr（a,b）函数返回为long形式，意为...
- VBA每日一练（13） 用dir 查找文件夹，特定文件名，文件类型，遍历等
1 DIR基本功能 1.1Dir函数 ... 返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。 pathname 可选参数。用来指定文件名的字符串表达式，...
- 前端代码获取文件大小_利用VBA获取文件的信息和属性
大家好，我们今日讲解“VBA信息获取与处理”教程中第十七个专题“文件及文件夹信息的获取及操作”的第三节“利用VBA获取文件的信息和属性”，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的程序...
- VBA 群里求助的例子,查找某个路径下是否有某文件，或某个类型的文件
1 求助问题 2 实现代码 2.1 我的代码 修改path1的路径即可 如果是dir 查找文件夹，需要加参数 fd1_name = Dir(ThisWorkbook.Path, vbDirectory) Sub test2() path1 = "C:\Users\Administrator\......
- vba 查找指定内容_工作中经常用到的VBA代码推荐
大家好，今天继续和大家分享VBA编程中常用的简单“积木”过程代码第81-84讲，内容是：检查单元格A1的文本颜色并返回颜色索引，完全匹配查找，不同的工作表间进行查找取值，DO…WHILE….循环等内容。VBA过程代码81：...
- 使用VBA读取指定Excel文件指定Sheet指定单元格的内容
打开一个Excel文件，选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor，打开VBA编辑器。 在Modules文件夹下的csMain文件中，写下如下VB格式的代码：
- cad vba 打开文件对话框_CADvba开发手册.doc
CADvba开发手册VBA开发人员手册VBA入门本章将为你介绍AutoCAD VBA工程及VBA交互开发环境(VBA IDE)。尽管大部分VBA环境在行为上都是相似的，但AutoCAD VBA IDE还是有些独有的特性。在AutoCAD中还有些相关的命令可以...
- vba批量合并指定的sheet_Excel VBA 多个工作表合并方法
输入以下代码：Private Sub CommandButton1_Click()Dim path, yuan_name '定义路径名，被合并表名称Dim wb As Workbookpath = ThisWorkbook.path '指定路径为合并新表所在路径yuan_name = Dir(path & "\" & ...
- vba读取excel文件内容处理后写入另外一张表_除了VBA，还有哪些编程语言可以操作Excel文件？...
我们知道，在需要批处理多个Excel工作表以及工作簿的时候，需要用到一个自动化的利器：VBAVBA其实是Visual Basic嵌套在office软件中的一个子集；VBA的功能很强大；但同时由于更新较少也有一些不方便的地方；比如VBA...
- VBA生成或读取指定字符集的文本文件
VBA生成或读取指定字符集的文本文件 用VBA做工具的过程中，遇见这样一个问题。使用FSO方式或者直接OPEN文件方式，生成的文本文件采用的字符集为当前操作系统默认字符集，不能选择字符集类型。这样的文件作为应用...
- 用Excel VBA拷贝特定文件到另一文件夹的方法
假设我们需要将文件夹“C:\FolderA”中的符合下面条件的文件，拷贝到“C:\FolderB”中。 拷贝条件：扩展名是xls或xlsx，并且文件名中不包含“OK”字样。 在Excel中插入一个ActiveX按钮，在按钮的事件中加入如下...
- VBA-打开指定工作簿
打来看指定工作需要已知其文件路径，并且用opne方法打开，其格式为：expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, ...
- Excel用VBA高手直接删除指定条件行.xls
用VBA高手直接删除指定条件行.xls
- 【VBA、Excel】VBA遍历当前目录下指定类型的excel文件并复制文件内指定的内容到新表中
最近在做水质分析数据录入的时候，需要根据监测井编号到多个excel表中查询该编号对应的井的水质分析数据，并将单口井的水质分析数据复制到新表中。由于检测中心给的 水质分析数据很多，而且还分布在不同的工作薄中，...
- 如何用VBA批量删除文件
Sub 批量删除文件() mypath = ThisWorkbook.Path f = Dir(mypath & "\*.xlsx") '查找当前路径下符合条件的文件名 While f <> "" '一直到F找不到合条件的就结束循环 ...
- 查找文件中是否存在指定字符串（VB）
用VB语言写的函数，查找文件中是否存在指定字符串，如果存在则返回该字符串所在的行，不存在则返回空字符串
- VBA檢查文件夾里是否存在指定文件…
Dim fn As String Dim nn As String fn = Trim(InputBox("输入要查看文件名（包括扩展名）")) 'Debug.Print fn ...'******如果为空,则该文件夹里没有任何文件****** If nn = "" Then MsgBox "该文件夹里没有任何
- Excel VBA 移动文件和文件夹
1、移动指定文件：Public Sub 移动文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\test.txt" '要移动的文件 myNewFilePath ...
- VBA中查询工作簿中是否含有指定名称工作表的方法
VBA中经常会有一个这样的需求，在执行运算之前需要先判断指定工作表名称是否存在，否则程序将会报“下标越界”的错误，给用户不好的体验 我所知晓的查询工作表名称通常有3种方法： 一、遍历所有工作表，如果工作表...
- VBA示例之 在特定的区域内查找文本,返回值是包含查找文本的单元格
VBA示例之 在特定的区域内查找文本,返回值是包含查找文本的单元格，供初学者参考，大牛勿进~~~~~~~
- Excel-VBA操作文件四大方法
Excel-VBA操作文件四大方法之一 在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba...
- VBA的Excel文件读写操作.zip
将TXT文档的数据按照一定的格式写入Excel,并跟据日期或者特定条件可以查询数据，并自动绘制曲线图！不含任何空间，纯代代码，方便移植。
- vba打开excel文件遍历sheet的名字和指定单元格的值（转载）
今天项目上有个应用，获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值，并把他们写到固定的sheet中去，看了下，文件比较多，而且每个文件sheet的个数比较多，也不一样，所以打算写个程序来帮...
- vba批量合并指定的sheet_利用VBA实现多个Excel工作簿快速合并方法
双击打开汇总文件.xls(当然我们也可以随便新建一个excel文档),按ALT+F11打开VBE编辑器,新建一个模块,粘贴如下代码：Option ExplicitSub mergeonexls() '合并多工作簿中指定工作表On Error Resume NextDim x As ...
- vba 自动排序_实现工作表按指定名称的顺序排序
实现工作表按指定名称的顺序排序大家好，我们今日讲解“VBA信息获取与处理”教程中第十三个专题“VBA如何让Excel工作表按指定的顺序排列”的第二节“实现工作表按指定名称的顺序排序”，这个专题是非常实用的知识点...
- vba 如何从右开始搜索特定字符位置_以多个给定符号作为间隔拆分字符串
大家好，我们今日讲解"VBA信息获取与处理"教程中第十四个专题"Split函数提取数据信息的深入讲解"的第三节"以多个给定符号作为间隔拆分字符串"，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的...
- VBA实战技巧精粹012：查找指定目录下的指定文件及Dir函数用法
String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分： 部分 描述 pathname...
- 卡西欧CASIO飞天旋转太空人-小米手环5含手环4.zip
小米手环5 卡西欧CASIO飞天旋转太空人-小米手环5 含手环4