Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57615 / 76807

←次へ　｜　前へ→


	【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