Excel VBA質問箱 IV

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

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


57540 / 76732 ←次へ | 前へ→

【23928】Re:教えてください。。
発言  kazu  - 05/4/7(木) 20:43 -

引用なし
パスワード
   なつみ さん

こんばんは。
こんな感じのことがしたいのかな・・・。と私なりの理解でつくってみました。
以下を試してみて下さい。

Sub 統合()

Const Fldpth As String = "C:\"
Const TmpFnm As String = "売上"
Const ShtNm As String = "SHEET1"

Dim i As Long, TmpCnt As Long, R_Cnt As Long
Dim F_Nm As String

R_Cnt = 1
For i = 1 To 10 Step 1
  F_Nm = Fldpth & TmpFnm & IIf(i < 10, "0" & CStr(i), CStr(i)) & ".SLK"
  If Dir(F_Nm) = "" Then
    MsgBox "ファイルが存在しません" & vbCrLf & F_Nm
    ThisWorkbook.Sheets(ShtNm).Cells.ClearContents
    Exit Sub
  End If
  
  Workbooks.Open F_Nm
  With ActiveSheet
    TmpCnt = .Range("A65536").End(xlUp).Row
   .Range("A1:M" & CStr(TmpCnt)).Copy ThisWorkbook.Sheets("sheet1").Range("A" & R_Cnt)
  End With
  
  ActiveWorkbook.Close False
  ThisWorkbook.Sheets(ShtNm).Range("N" & CStr(R_Cnt) & ":N" & CStr(R_Cnt + TmpCnt)) = i
  R_Cnt = R_Cnt + TmpCnt
Next

ThisWorkbook.Sheets(ShtNm).Range("A1:M" & CStr(R_Cnt)).NumberFormatLocal = "G/標準"
End Sub

1 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 お礼

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