Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18 / 73902 ←次へ | 前へ→

【79524】Re:集約データの参照元ブック名を取得しセルへ貼り付ける方法について
発言  マナ  - 17/11/24(金) 23:26 -

引用なし
パスワード
   ▼よっちゃん さん:

ごめんなさい。今日はもう返事できません。

Private Sub CommandButton1_Click()
  Dim ブック As Worknook
  Dim フォルダ As String
  Dim buf As String
  
  '画面更新の停止
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  '自動再計算の中止
  Application.Calculation = xlCalculationManual
  
  'シートの削除
  Range("A6:Z65536").Clear
  
  フォルダ = Range("A2").Value & "\"
  
  'データ集約
  buf = Dir(フォルダ & "*.xlsx")
  Do While buf <> ""
    Set ブック = Workbooks.Open(フォルダ & buf)
    Range("A65536").End(xlUp).Offset(1, 0).Value = buf
    ブック.Sheets("入力用").Range("C73:Q102").Copy Range("A65536").End(xlUp).Offset(1, 0)
    ブック.Close SaveChanges:=False
    buf = Dir()
  Loop
  
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  Application.Calculation = xlCalculationAutomatic
  
End Sub

60 hits

【79521】集約データの参照元ブック名を取得しセルへ貼り付ける方法について よっちゃん 17/11/24(金) 22:15 質問[未読]
【79522】Re:集約データの参照元ブック名を取得しセ... マナ 17/11/24(金) 22:37 発言[未読]
【79523】Re:集約データの参照元ブック名を取得しセ... よっちゃん 17/11/24(金) 23:10 回答[未読]
【79524】Re:集約データの参照元ブック名を取得しセ... マナ 17/11/24(金) 23:26 発言[未読]
【79525】Re:集約データの参照元ブック名を取得しセ... よっちゃん 17/11/25(土) 0:12 お礼[未読]
【79526】Re:集約データの参照元ブック名を取得しセ... γ 17/11/25(土) 8:08 発言[未読]
【79527】Re:集約データの参照元ブック名を取得しセ... γ 17/11/25(土) 11:23 発言[未読]
【79528】Re:集約データの参照元ブック名を取得しセ... マナ 17/11/25(土) 12:23 発言[未読]
【79529】Re:集約データの参照元ブック名を取得しセ... γ 17/11/25(土) 12:45 発言[未読]

18 / 73902 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free