Excel VBA質問箱 IV

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

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


57531 / 76732 ←次へ | 前へ→

【23937】Re:教えてください。。
回答  ウッシ  - 05/4/8(金) 10:00 -

引用なし
パスワード
   こんにちは

こんな感じで出来ますでしょうか?

Sub 統合()
  Dim i  As Long
  Dim s  As String
  Dim lstR As Long
  Dim w  As Long
  Dim wBK As Workbook
  
  Application.ScreenUpdating = False
  With Workbooks("統合.xls").Sheets("Sheet1")
    .UsedRange.Offset(1).Clear
    lstR = 2
    For i = 1 To 10
      s = "売上" & Format(i, "00")
      'SLKファイルの有るフォルダへのパス、要変更
      Set wBK = Workbooks.Open( _
            FileName:="\\・・・\・・・\・・・\" & s & ".SLK")
            
      wBK.Worksheets(s) _
        .UsedRange.Offset(1).Copy .Cells(lstR, 1)
        
      w = .Range("A65536").End(xlUp).Row
      .Range(.Cells(lstR, "N"), .Cells(w, "N")).Value = Val(Mid(s, 3))
      
      lstR = w + 1
      
      wBK.Close
    Next
    .UsedRange.Offset(1).NumberFormatLocal = "G/標準"
  End With
  Application.ScreenUpdating = True
End Sub
0 hits

【23910】教えてください。。 なつみ 05/4/7(木) 11:59 質問
【23913】Re:教えてください。。 Jaka 05/4/7(木) 12:57 回答
【23916】Re:教えてください。。 なつみ 05/4/7(木) 13:57 質問
【23917】Re:教えてください。。 Jaka 05/4/7(木) 14:06 回答
【23928】Re:教えてください。。 kazu 05/4/7(木) 20:43 発言
【23936】Re:教えてください。。 なつみ 05/4/8(金) 8:57 質問
【23937】Re:教えてください。。 ウッシ 05/4/8(金) 10:00 回答
【23951】Re:教えてください。。 なつみ 05/4/8(金) 15:22 質問
【23952】Re:教えてください。。 ウッシ 05/4/8(金) 15:29 回答
【23953】Re:教えてください。。 なつみ 05/4/8(金) 15:47 お礼

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