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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
-
4
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
5
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
6
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
12
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
13
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
14
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
15
エクセルVBAで#N/Aのようなエラー値を含むセルの検出は
Visual Basic(VBA)
-
16
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
17
ACCESSでの改行コード
その他(データベース)
-
18
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
frxファイルの役目
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
バッチファイルのコピーで
-
Vba初心者です。下記のコード助...
-
同じファイル名 上書きしないフ...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
FTPとファイルコピーの違いにつ...
-
FSO.CopyFileでのエラー無視方法
-
VBSでExcelシートのコピー
-
エクセルのマクロについて教え...
-
バッチファイル 別ファイルにリ...
-
再インストール出来ません。
-
マインクラフトPCをプレイしよ...
-
エクセルのハイパーリンクがコ...
-
エクセル2010、図が大きすぎま...
-
[エクセル]コピーするとオブジ...
-
「ファイルが見つかりません D...
-
vbsでExcelのシートをコピーす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
エクセルVBAで開いているファイ...
-
パワポでスライドをコピーでき...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
Excelのマクロについて教えてく...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報