EXCEL VBA跨文件表格引用

天真无鞋

求EXCEL VBA跨表格引用，详见附件说明.

liulang0808

附件有病毒，楼主再确认后上传吧

天真无鞋

liulang0808 发表于 2024-3-14 07:38
附件有病毒，楼主再确认后上传吧

怎么可能有病的，唯一就是数据表里面引用的公式太多

泓丶

火绒查杀结果

天真无鞋

泓丶 发表于 2024-3-14 09:57
火绒查杀结果

难道是我电脑感染了病毒

天真无鞋

重新上传不知道是否可行，那位大哥能否帮忙解决，需要网络公共地址文件夹和本地文件夹抓取数据。
现状代码抓取只可以在本地电脑文件夹抓取，无法从网络公共盘地址获取。

这个代码只可以从本地电脑盘获取。


Sub 导入()
    Dim folderPath As String
    Dim fileName As String
    Dim sourceWb As Workbook
    Dim targetWs As Worksheet
    Dim lastRowSource As Long
    Dim firstRowTarget As Long
    Dim copyRange As Range
    folderPath = Range("k1").Value & "\"
    fileName = Range("v1").Value
    Set sourceWb = Workbooks.Open(folderPath & fileName)
    Dim currentWb As Workbook
    Set currentWb = ThisWorkbook
    Set targetWs = currentWb.ActiveSheet
    Dim sourceWs As Worksheet
    Set sourceWs = sourceWb.Sheets("new")
    lastRowSource = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
    firstRowTarget = 4
    Set copyRange = sourceWs.Range("A4:xfd" & lastRowSource)
    copyRange.Copy targetWs.Range("A4:xfd" & lastRowSource)
    sourceWb.Close SaveChanges:=False
    MsgBox "复制完成"
    ActiveWorkbook.Save
End Sub

ykcbf1100

你的电脑怎么会感染病毒呢？