毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、
別のブックにコピーして、セルの書式と値を貼付けし、
元ファイルのシート名と同じシート名を付けたいのですが、
どんなVBAを組めば良いでしょうか？
下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、
自分のイメージした通りに動きません・・・。
ご教授の程、宜しくお願いいたします。
Sub データ書き出し()
Dim ws As Worksheet
Dim i As Long
With ActiveWorkbook
i = Worksheets.Count
For j = 1 To i
ThisWorkbook.Worksheets(j).Cells.Copy
.Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
.SaveAs "月別DATA_"
End With
End Sub
毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、
別のブックにコピーして、セルの書式と値を貼付けし、
元ファイルのシート名と同じシート名を付けたいのですが、
どんなVBAを組めば良いでしょうか？
下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、
自分のイメージした通りに動きません・・・。
ご教授の程、宜しくお願いいたします。
Sub データ書き出し()
Dim ws As Worksheet
Dim i As Long
With ActiveWorkbook
i = Worksheets.Count
For j = 1 To i
ThisWorkbook.Worksheets(j).Cells.Copy
.Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
.SaveAs "月別DATA_"
End With
End Sub
毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、
別のブックにコピーして、セルの書式と値を貼付けし、
元ファイルのシート名と同じシート名を付けたいのですが、
どんなVBAを組めば良いでしょうか？
下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、
自分のイメージした通りに動きません・・・。
ご教授の程、宜しくお願いいたします。
Sub データ書き出し()
Dim ws As Worksheet
Dim i As Long
With ActiveWorkbook
i = Worksheets.Count
For j = 1 To i
ThisWorkbook.Worksheets(j).Cells.Copy
.Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
.SaveAs "月別DATA_"
End With
End Sub
毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、
別のブックにコピーして、セルの書式と値を貼付けし、
元ファイルのシート名と同じシート名を付けたいのですが、
どんなVBAを組めば良いでしょうか？
下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、
自分のイメージした通りに動きません・・・。
ご教授の程、宜しくお願いいたします。
Sub データ書き出し()
Dim ws As Worksheet
Dim i As Long
With ActiveWorkbook
i = Worksheets.Count
For j = 1 To i
ThisWorkbook.Worksheets(j).Cells.Copy
.Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
.SaveAs "月別DATA_"
End With
End Sub
毎回、シート数が変動するEXCELファイルの、表示されているシートのみ（非表示シート有）を、
別のブックにコピーして、セルの書式と値を貼付けし、
元ファイルのシート名と同じシート名を付けたいのですが、
どんなVBAを組めば良いでしょうか？
下記の様に作成してみましたが、ファイル自体がコピペされてしまう様で、
自分のイメージした通りに動きません・・・。
ご教授の程、宜しくお願いいたします。
Sub データ書き出し()
Dim ws As Worksheet
Dim i As Long
With ActiveWorkbook
i = Worksheets.Count
For j = 1 To i
ThisWorkbook.Worksheets(j).Cells.Copy
.Worksheets(j).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Application.CutCopyMode = False
.SaveAs "月別DATA_"
End With
End Sub
＜EXCELでマクロを使って連続で印刷しようとすると２枚目でエラーになる。＞
EXCELでマクロを使って連続で印刷しようとしています。
１枚目は良いのですが、２枚目でエラーになってしまいます。
EXCEL自体が落ちてしまいます。
エラー400やエラー10004が出たりします。
アプリケーション定義や
オブジェクト定義のエラーとも出ます。
マクロは次のようなものです。
Sub test()
For i = 1 To 5
.Cells(2, 34).Value = i
ActiveSheet.PrintOut
Next i
End Sub
Cells(2, 34)に数字を入れてVLOOKUPでデータを差し込みます。
どんな問題があるでしょうか？
宜しくお願いいたします。
なお、EXCELはEXCEL2002です。
以前にも同じような質問をされている方がいるかもしれませんが、
どなたかお知恵をお貸しください。
関数を使用して処理したいと考えております。
下記にファイルの一部を抜粋致しましたので、
ご教授のほど宜しくお願い致します。
現在の形
A B C D E
1 SHIRTS カラー黒 サイズ38 サイズ39 サイズ40
上記のような形で4000行くらいあります。
列は最長でABまで使用しております。
上記のようなデータを下記のような形に並べ替えたいと思っております。
希望の形
A B C
1 SHIRTS カラー黒 サイズ38
2 SHIRTS カラー黒 サイズ39
3 SHIRTS カラー黒 サイズ40
サイズの展開を横表示から縦表示に変更したいのです。
素人質問で申し訳ありませんが、どなたか宜しくお願い致します。
