
Vba初心者です。下記のコード助けてください
Loopに対するDoがありませんと表示されます
Sub シール用データ①()
Dim folder As String
Dim wb As Workbook
Dim file As String
Dim r As Long
Dim ws As Worksheet
'
folder = "D:\工場伝票\①\" 'ファイルがあるフォルダ
'folder = ThisWorkbook.Path & "\" 'このBookのフォルダ
Set ws = ThisWorkbook.Sheets("Sheet1") 'このブックのSheet1(コピー先シート)
ws.Range("A2:C60").Clear 'コピー先シートクリア
r = 2 '出力行の初期値=1
file = Dir(folder & "*.xls*") 'フォルダ内の最初のブック名
Do While file <> "" 'ファイルがある間
If file <> ThisWorkbook.Name Then 'このブック(VBAのあるブック)でなければ
Set wb = Workbooks.Open(folder & file) 'ブックを開く
If r = 2 Then '出力行が1なら(最初なら)
wb.Sheets(3).Range("Q55").Copy
ws.Range("A" & r).PasteSpecial xlPasteValues '値をペースト
Application.CutCopyMode = False 'コピーを解除 '見出しコピー(1行)
wb.Sheets(3).Activate
Range("Q57").Copy
ws.Range("B" & r).PasteSpecial xlPasteValues '値をペースト
Application.CutCopyMode = False 'コピーを解除 '見出しコピー(1行)
wb.Sheets(3).Activate
Range("Q60").Copy
ws.Range("C" & r).PasteSpecial xlPasteValues '値をペースト
Application.CutCopyMode = False 'コピーを解除 '見出しコピー(1行)
r = r + 1
End If
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
2重のDo~Loopは?
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
9
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
10
初歩的な事だと思います。 Sub または Function が定義されていません。
Visual Basic(VBA)
-
11
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
12
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
13
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
14
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
15
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
18
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
19
ステートメントの末尾が不正です
Windows Vista・XP
-
20
Access2010 「演算子がありません」エラー
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのハイパーリンクがコ...
-
vbsでファイルやフォルダのコピ...
-
ファイルサーバ上のファイルが...
-
WSHでファイルとフォルダのコピ...
-
現在のブックを閉じないで、マ...
-
エクセルで複数のコメントのサ...
-
FTPとファイルコピーの違いにつ...
-
マインクラフトPCをプレイしよ...
-
バッチファイル XCOPYで上書き...
-
複数ファイルからのデータ抽出...
-
アクセス クエリを別のファイ...
-
JWCADのファイルを他のP...
-
vbsでExcelのシートをコピーす...
-
バッチファイル 別ファイルにリ...
-
Vba初心者です。下記のコード助...
-
バッチでリストに基づきサブフ...
-
バッチファイルのコピーで
-
vb.net コピーの進捗をプログレ...
-
PS3でMP4動画を観たい
-
エクセルからホームページビル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
同じファイル名 上書きしないフ...
-
ファイルサーバ上のファイルが...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
[エクセル]コピーするとオブジ...
-
Vba初心者です。下記のコード助...
-
エクセルのハイパーリンクがコ...
-
バッチファイル 別ファイルにリ...
-
エクセル2010、図が大きすぎま...
-
現在のブックを閉じないで、マ...
-
vbsでExcelのシートをコピーす...
-
xcopyでのバッチコピー方法でコ...
-
バッチファイルのコピーで
-
FTPとファイルコピーの違いにつ...
-
アクセス クエリを別のファイ...
-
パワポでスライドをコピーでき...
-
vbsでファイルやフォルダのコピ...
-
開いている別のファイルにExcel...
-
bat 同名ファイルコピー時にリ...
おすすめ情報