エクセル AAA.xls の、シート aaa のデータが851行まであります。
(1行目は名前や列名などのデータです)
このデータを複数のエクセルファイルに、
2~171行目までは 01.xls
172~341行目までは 02.xls
342~511行目までは 03.xls
512~681行目までは 04.xls
682~851行目までは 05.xls
のように分けて保存したいです。
さらに、週毎に シートaaa のデータは更新されるため、
B~F.xls への保存も、前月分を残したまま追記していく必要があります。
(たとえば、01.xls を開くと、12月1週目のデータの後に、12月2週目のデータが
追記される・・・ という操作を組み込みたいです)
こういった作業をするためのマクロは、実際にどのように書けばよいのか、
ご教示ください。
非常に複雑なマクロになってしまうかもしれませんが、
どうぞよろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
169行ごとに別ファイルを作成するのは、つぎのコードでできます。
(吟味していないので少し荒っぽいですが)
Sub TEST()
Workbooks.Open "H:\Temp\AAA.xls"
Worksheets("aaa").Select
With Worksheets("aaa")
For i = 1 To 5
J = (i - 1) * 170 + 2
K = J + 169
Range(Rows(J), Rows(K)).Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add Template:="ブック"
Worksheets("Sheet1").Activate
Cells.Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Application.CutCopyMode = False
FN = "H:\Temp\" & i & ".xls"
ActiveWorkbook.SaveAs Filename:=FN, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Next i
End With
End Sub
>週毎に シートaaa のデータは更新されるため、B~F.xls への保存も...
については、B~F.xlsなど、分からないところがありますので、回答できません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Excel(エクセル) マクロを教えてください 1 2022/11/28 14:52
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
エクセルVBA Workbook変数に変...
-
ExcelVBAで今開いているユーザ...
-
VB2010でExcelの行をコピーして...
-
【ExcelVBA】指定の書式で、マ...
-
フォルダ内の全てのBookに同じ...
-
すでに開いているブックのマク...
-
フォルダ内の全ブックのシート...
-
コマンドボタンでマクロを起動...
-
personal.xlsの削除方法
-
EXCEL VBAアドイン:シートの右...
-
【Excel VBA】ブックを複数開い...
-
VBAでEXCELのワークシートを削...
-
VBA、Excelのworkbook.open に...
-
エクセル2007で、Application.R...
-
エクセルにおいて、行ごとに別...
-
Excelの一括印刷で通し番号をつ...
-
エクセル終了時の保存確認メッ...
-
複数のデータ系列の線の太さを...
-
cellsで特定の離れた範囲を選択...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
【Excel VBA】ブックを複数開い...
-
【ExcelVBA】指定の書式で、マ...
-
VB2010でExcelの行をコピーして...
-
フォルダ内の全ブックのシート...
-
EXCELマクロでxlsとxlsxを開く方法
-
他のBookのユーザー定義関数を使う
-
VBA、Excelのworkbook.open に...
-
すでに開いているブックのマク...
-
フォルダ内の全てのBookに同じ...
-
personal.xlsの削除方法
-
[Excel VBA] フォルダ内の複数...
-
excelマクロ、任意セルの値で名...
-
excelでハイパーリンク 別ブッ...
-
VBA セル入力された日付データ...
-
Excel マクロでファイル名を変...
-
EXCEL VBA起動時の処理
-
エクセルVBAでブックを開くと処...
おすすめ情報