設為首頁收藏本站|繁體中文

Excel 技巧網

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

手機號碼,快捷登錄

查看: 619|回復: 1
打印 上一主題 下一主題

[待分類提問] VBA

[復制鏈接]
跳轉到指定樓層
樓主
發表于 2019-8-13 13:41:49 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式

免費注冊成為本站會員,享用更多功能,結識更多Office辦公高手!

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
Sub 匯總()
  Dim mypath As String, myname  As String, Dname As String, sh As Worksheet
  Set sh = ActiveSheet
  mypath = ThisWorkbook.Path
  myname = ThisWorkbook.Name
  Dname = Dir(mypath & "\*.xls")
  Application.ScreenUpdating = False
  sh.UsedRange.Offset(1, 0).Clear
  Do While Dname <> ""
     If Dname <> myname Then
       With GetObject(mypath & "\" & Dname)
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)
         .Close False
       End With
      End If
     Dname = Dir
Loop
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub
中    With GetObject(mypath & "\" & Dname)
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)這兩句求翻譯,詳細點,剛學習。

分享到:  QQ好友和群QQ好友和群
收藏收藏
2
發表于 2019-8-19 16:07:58 | 只看該作者
With GetObject(mypath & "\" & Dname)'打開當前路徑指定工作簿
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)'復制當前工作簿sheet1的有效區域粘貼到sh最后一行的下一行

評分

參與人數 1魅力值 +5 收起 理由
西風破 + 5 感謝幫助:)

查看全部評分

您需要登錄后才可以回帖 登錄 | 注冊

本版積分規則

關閉

站長推薦上一條 /1 下一條

Archiver|手機版|Excel技巧網 ( 閩ICP備08107682號-2

GMT+8, 2019-12-7 17:45

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表
澳客网数据采集