hdzgx / office / EXCEL如何使用VBA打开相对路径下的文件或...

分享

   

EXCEL如何使用VBA打开相对路径下的文件或文件夹?

2019-11-08  hdzgx
打开excel以下代码,可以提取其他文件中的表“重量汇总”F520:BV521的数据,其中有选择文件路径的过程,你稍改动也许对你有帮助。。。

Sub 数据提取()
    Dim FileName1 As String
    Dim FileName As String
    Dim FileName2 As String
    Dim FileName3 As String
     Dim FileName4 As String
    FileName1 = Application.ActiveWorkbook.Name
    FileName1 = Right(FileName1, Len(FileName1))
    FileName = Application.GetOpenFilename("  ( *.xls & *.Steel& *.xlsx),*.xls;*.xls;*.Steel", , " ")
    FileName = Right(FileName, Len(FileName))
    Windows(FileName1).Activate
    Sheets(" Sheet 1").Select
    Range("A2").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Workbooks.Open FileName:=FileName
    FileName2 = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
    Windows(FileName2).Activate
    Sheets("重量汇总").Select
    Range("F520:BV521").Select
    Selection.Copy
    Windows(FileName1).Activate
    Sheets(" Sheet 1").Select
    Range("B2").Select
    ActiveSheet.Paste Link:=True
    Range("A2").Select
    Range("A2") = FileName2
    FileName3 = Left(FileName, Len(FileName) - Len(FileName2))
    Range("BS2") = FileName3
    Windows(FileName2).Close
End Sub

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    来自: hdzgx > 《office》

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>