No.5
- 回答日時:
>myBook.SaveAs Filename:=wkFolder & Format(h, "0000") & ".xls"
myBook.SaveAs Filename:=wkFolder & Format(h, "00000") & ".xls"
一桁、たりませんでした。
なお、保存する時に、同じファイル名のものが先に存在すると、確認のためにダイアログでるかもしれません。
No.4ベストアンサー
- 回答日時:
Sub Test()
'ファイル名は0001.xls, 0101.xls, 0201.xls ・・・・ です。
'列数は10
'行数は1000
'ここは適当にかえてください。
'一度に30000行までやると時間がかかるので、hの値は区切って行った方がいいかもしれません。
'一応、動作は見ていますが、EXCELは慣れていないので文法間違いはあるかもしれません。
'オリジナルファイルはバックアップしておいてください。
Dim h, i, j, k As Long
Dim myExcel As Object
Dim myBook As Object
Dim Row, Col As Long
Dim wkFolder As String
wkFolder = "C:\XLS\" 'XLSの作成されるフォルダ
For h = 1 To 1000 Step 100 '行数
Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True
Set myBook = myExcel.Workbooks.Add
ScreenUpdating = False
For i = h To (h + 99)
k = k + 1
For j = 1 To 10 '列数
myExcel.Cells(k, j).Value = Sheet1.Cells(i, j).Value
Next j
Next i
ChDir wkFolder
myBook.SaveAs Filename:=wkFolder & Format(h, "0000") & ".xls"
myExcel.Quit
k = 0
Next h
End Sub
No.3
- 回答日時:
#2です。
下のマクロは自身のPCで正常に動作するのは確認していますが、貴殿のファイルできちんと正常に動作するかどうかはわからないので、動作させる前にファイルのバックアップなどを取ってから試してください。
データの消失に関しては責任を負えませんのであしからず。。
No.2
- 回答日時:
こんばんわ。
あんまり自信がないのですが・・・。
以下のマクロを実行してみて下さい。
Sheets("Sheet2").Select
Rows("1:100").Select
Selection.Cut
Workbooks.Add
Rows("1:100").Select
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.ActivateNext
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveWindow.ActivateNext
ActiveWorkbook.SaveAs FileName:=Workbooks("book1").Sheets("sheet1").Range("a1").Value
ActiveWindow.Close
補足しますと・・・。
まずデータが入ってるファイルのデータが入ってるシートをSheet2とし
マクロを実行するシートをSheet1としています。
そのマクロを実行するシートのA1に入れた名前がファイル名となり保存される仕組みです。
もし、そこまで必要ないのであれば、
Rows("1:100").Select
Selection.Cut
Workbooks.Add
Rows("1:100").Select
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.ActivateNext
Selection.Delete Shift:=xlUp
Range("A1").Select
このマクロをデータのあるシート上で実行すれば100個のデータが移動したものがbook1として出来ているはずですので名前をつけて任意の場所に保存してください。
No.1
- 回答日時:
VBAなどで、可能だと思うのですが、
ちなみにどんなデータでしょうか?
住所録ですか? なら一例を示すと回答がつきやすいと
思います。
例えば・・・・
A列 B列 C列
住所 氏名 電話番号
のようにデータがありますなど。
この回答への補足
アドバイスありがとうございます。
一例を示させていただきます。
A列・・・すべて100と入れます
B列・・・すべて0と入力
C列・・・A-B-11222
(ここにはそのそれぞれの商品番号を入れます)
D列・・・ここは空白です。
E列・・・空白
F列・・・111と入力
G列・・・222と入力
H/I/J列・・・空白
K列・・・商品名
L列・・・詳細
M列・・・その他の情報
N列・・・その他の情報
O/P/・・・空白
Q列・・・値段
R列・・・その他の情報
S列・・・1と入力
といった表になっております。
それを特に並び替えたりするのではなく
とりあえず100件づつに
分けたいのです。
足りない点がありましたら
ご指摘ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで、ファイルの分割 と ファイルの集約 1 2022/08/28 08:58
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- その他(社会・学校・職場) 誰か聞いてください。 社会人6年目ですが、私はポンコツすぎますか? 上司にとあるAファイルの数式を全 1 2023/08/10 18:25
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) エクセル 任意の列数で分割する方法 3 2022/07/31 14:58
- その他(プログラミング・Web制作) Pythonで、データファイルと列名ファイルを1つのファイルにしたいです。 1 2023/07/27 20:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つのファイルの同...
-
CSVファイルををリネームしてxl...
-
Excelで「変更を保存しますか」...
-
slk拡張子のエクセルファイルを...
-
サポートの終了したExcel.xlsフ...
-
コマンドプロンプトのエラーに...
-
大量のフォルダからひとつのフ...
-
コマンドプロンプトの「%1」と...
-
バッチでテキストファイルから...
-
VBAでワークシートを引数として...
-
コマンドにてテキストファイル...
-
拡張子を元に戻す
-
exeファイルを実行するとコマン...
-
stable diffusionのインストー...
-
コマンドプロンプトで変数が数...
-
make test って何をするための...
-
PCのアプリケーションを別のPC...
-
exeファイルをデータ転送サービ...
-
テキストファイルを直接置換す...
-
エクセルのVBAについて とある...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つのファイルの同...
-
Excelで「変更を保存しますか」...
-
OpenOfficeでLotus123は開かない?
-
間違えて上書き保存した場合の...
-
slk拡張子のエクセルファイルを...
-
WinCDRで「***.iso」ファイルか...
-
MacのQuarkデータをWinのInDesi...
-
実行b可能な限界を超えています...
-
サポートの終了したExcel.xlsフ...
-
AccessでクエリしたデータをExc...
-
CSVデータの数値の表示
-
フォトショップで作成したpsdデ...
-
《エクセル》マクロとセルのリ...
-
2種類のエクセルファイルから...
-
jpgファイルをaiファイルに戻す
-
CSVファイルををリネームしてxl...
-
画像ファイルのjpegファイルをe...
-
上書き時間を短縮する方法はあ...
-
コマンドプロンプトの「%1」と...
-
バッチでテキストファイルから...
おすすめ情報