vba 如何实现excel 上传到网络 和打开网络excel 及从网络下载到本...
发布网友
发布时间：2024-03-02 14:09
我来回答
共2个回答
热心网友
时间：2024-07-19 13:27
下载指定网上文件（选中详细地址）到C盘根目录下。
Sub Selectdownloadfile2C_drive()
'download the select file
Dim h, s, fil As String, c As Range, ti, url, i
Set h = CreateObject("microsoft.XMLHTTP")
On Error Resume Next
i = 0
MsgBox "The download file will be saved to c:\!"
For Each c In Selection
url = c.Value
If Len(url) < 20 Then GoTo ne
h.Open "GET", url, True '网络中的文件URL
h.send
ti = Timer
Application.StatusBar = "Waiting! " & i + 1 & "/" & Selection.count & " " & Right(c.Value, 50)
E:
If h.ReadyState <> 4 Then
' MsgBox (Len(H.responsebody)*2+1) / 1024)
Application.StatusBar = "Downloaded " & (Len(h.responsebody) * 2 + 1) / 1024 & "KB"
MsgBox (Len(h.responsebody) * 2 + 1) / 1024 & "KB"
If h.ReadyState = 3 And Timer - ti > 180 Then
MsgBox "Time out"
GoTo ne
End If
DoEvents
GoTo E:
Else
' MsgBox H.StatusText
Set s = CreateObject("ADODB.Stream")
s.Type = 1
s.Open
s.Write h.responsebody
fil = Replace(Mid(url, InStrRev(url, "/") + 1), "?", "-")
s.SaveToFile "C:" & "\" & fil, 2 '本地保存文件名
s.Close
i = i + 1
Application.StatusBar = c.Value & " downloaded OK " & i & "/" & Selection.count
End If
ne:
Next c
Application.StatusBar = False
End Sub
热心网友
时间：2024-07-19 13:33
07版有这个功能 自己录个宏 就可以
vbaexcel如何实现互联网在线使用vba网络
不能实现互联网在线使用。因为vbaexcel是一个独立的软件，需要在本地安装才能使用，不能直接在互联网上运行。除非将vbaexcel的运行开发成网页版，才能实现在线使用。目前已经有很多在线运行的电子表格软件，比如Google Sheet、Office 365等，用户可以直接在浏览器中使用，而不需要进行本地安装。如果想要实现vba...
excel中如何连接指定的网络数据
方法一操作：下面我以Excel自带的“导入外部数据功能”功能做个 从网络上获取天气数据 示范：1.【数据】→【导入外部数据】→【新建Web查询】2。输入我网络地址并【转到】3.点击导入后，就可返回数据到表格了（如下图），如键列表中的元素可以增加或者删除对应的数据。我这个是一个非常非常简单的例子，...
vba下载网络文件的问题
在出错语句前加一句错误处理语句试试：On Error Resume Next 另外你说：“出错后会造成EXCEL工作不正常，要关闭文件并退出EXCEL再重新加载EXCEL打开文件，否则将不响应任何宏。”不应该出现这种情况，可能是已运行了关闭事件响应的语句后出错，对事件就不会执行了，但对于模块内的宏，直接执行（不是事件调...
如何批量打开excel超链接?
1. 打开Excel文件，并按下`Alt` + `F11`键进入VBA编辑器。2. 在VBA编辑器中，选择“插入”->“模块”，以创建一个新的模块。3. 在新创建的模块中，复制并粘贴以下VBA代码：vba Sub OpenAllHyperlinks Dim ws As Worksheet Dim hl As Hyperlink For Each ws In ThisWorkbo...
使用Excel VBA,如何将某一个工作表保存到新建的Excel中。
代码如下：Sub 分开存为工作薄()Dim Sh As Worksheet Dim Wk1 As Workbook Dim Wk2 As Workbook Dim iPath As String Application.ScreenUpdating = False ‘将屏幕更新关闭 Application.DisplayAlerts = False iPath = ThisWorkbook.Path & "\" '保存路径为当前工作簿所在路径 Set Wk1 = Work...
excel A 表格会链接到另外的内部网络上 excel B 表格,B 会手动更新,如...
追问 A 表格不会关闭，是一直打开的。B 表格会定时手动更新。A表格式不会关闭，别人一直在打开吗？（只读打开？还是可写入？这个是关键！）只用用VBA来实现，定时刷新
VBA excel 打开本路径下的A.Xls文件,并把文件中的所有工作表的明细数...
Sub hz()Dim bt, i, r, c, n, first As LongDim fSet f = Workbooks.Open("d:\test\A.xls")bt = 1 '表头有几行，这里的1就改成几ThisWorkbook.ActiveSheet.Cells.ClearFor i = 1 To f.Sheets.Count If first = 0 Then c = f.Sheets(i).Cells(1, Columns.Count).End(x...
Excel 怎样用vba实现文件上传到ftp服务中
一、VBA+DOS批处理的方式，本质上还是通过DOS来进行，有点麻烦，而且运行中会弹出CMD窗口，现在已经不用这种方法了。VBA写DOS：Open getfd For Output As #1 Print #1, "setlocal EnableDelayedExpansion" Print #1, "(" Print #1, "echo;open xx.xx.xx.xx" Print #1, "echo;user"...
如何VB实现对Excel的数据查询vb如何实现查询功能
在VB中建立到excel表的连接，就可以打开文件了。。然后读取excel文件的代码和VBA差不多，具体的自己调试下!下面代码要求执行代码的电脑上必须安装了excel程序(这样可以不添加对excel的引用)。。Dim xlsApp As Object, xlsWb As Object, xlsWs As Object '定义Excel对象 Set xlsApp = CreateObject(\"...
如何批量打开excel超链接
1. **启用宏**：首先，在Excel中需要启用宏功能。这通常通过“文件”>“选项”>“信任中心”>“信任中心设置”>“宏设置”，然后选择“启用所有宏”来完成。2. **编写VBA代码**：打开Excel，按`Alt + F11`进入VBA编辑器。在“插入”菜单中选择“模块”，然后在打开的代码窗口中粘贴以下代码（...
