vba取服务器路径

1、VBA 上传文件服务器和从服务器获取文件

其实是追问LZ，如何实现呢，我现在也是想从自己电脑上传文件到公共服务器上去。。

2、VBA获取指定格式的文件路径

文件 = Dir(ThisWorkbook.Path & "\*.*")
Do While 文件 <> ""
If InStr(文件, ".xlsm") > 0 Or InStr(文件, ".txt") > 0 Then
i = i + 1
Cells(i , "A").Value = ThisWorkbook.Path & "\" & 文件
Else
文件 = Dir
Loop

3、怎么用VBA代码获取文件所在地址？

返回应用程序完整路径
Application.Path
返回当前工作薄的路径
ThisWorkbook.Path
返回当前默认文件回路径：
Application.DefaultFilePath
Application.ActiveWorkbook.Path 只返回路径
Application.ActiveWorkbook.FullName 返回路径及答工作簿文件名
Application.ActiveWorkbook.Name 返回工作簿文件名

4、在ppt中用VBA怎么取得当前PPT的路径地址？

可以通过来ActivePresentation对象的Path属性获取路径地址自

1）新建一个PPT,插入一个命令按钮，保存为PPTM格式文件。右键单击按钮，查看代码：

2）编辑按钮事件代码如下：

Private Sub CommandButton1_Click()
  MsgBox ActivePresentation.Path
End Sub

3）回到PPT视图，按F5进入播放状态，单击按钮，即会跳出消息框提示文件路径

5、VBA如何获取当前EXCEL文件的路径

1、首先打开Excel数据表，在开发工具中打开VBA编辑器。

2、在单元格专区域当中输入一些内容。

3、在VBA编辑器中插入模属块。

4、Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程序即将退出！": Exit Subtemp=Split(filess, "")。

5、MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为：" & Chr(10) & filess _
& Chr(10) & "当前表路径为：" & Chr(10) & ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。

6、然后单击“执行”按钮，程序弹出“选择文件”对话框。选择一个文件后，程序立即弹出所选文件的路径，然后弹出当前工作簿的路径。

6、excel vba，读取指定路径上的excel 文件数据，后台读取，不要打开它

只能给复你个几个参考，当然制还有其他方法，希望能够帮到你 望采纳
getobject函数 本质是打开的，只是看不到窗口
Dim wb as workbook
set wb = getobject(具体路径+文件)
with wb
.............(operation on wb)
end with
wb.close false
set wb=nothing