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も見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
-
4
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
5
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
10
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
13
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
14
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
15
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
16
End Sub が必要です。
Access(アクセス)
-
17
エクセルVBAで#N/Aのようなエラー値を含むセルの検出は
Visual Basic(VBA)
-
18
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
ExcelVBA Range クラスの PageBreak プロパティを設定できません。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
xcopyでのバッチコピー方法でコ...
-
同じファイル名 上書きしないフ...
-
バッチファイルのコピーで
-
Delphiによるファイルのコピー
-
ゴミ箱に移動するような削除を...
-
マインクラフトPCをプレイしよ...
-
Vba初心者です。下記のコード助...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
賃貸アパートの退去の時の返却...
-
特定のエクセルファイルが止ま...
-
Excel VBAで値コピーが使用でき...
-
アクセス クエリを別のファイ...
-
PDFファイルを枚数指定してコピー
-
bat 同名ファイルコピー時にリ...
-
[エクセル]コピーするとオブジ...
-
バッチファイル 別ファイルにリ...
-
vbsでファイルやフォルダのコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
エクセルのハイパーリンクがコ...
-
同じファイル名 上書きしないフ...
-
Vba初心者です。下記のコード助...
-
xcopyでのバッチコピー方法でコ...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
vbsでExcelのシートをコピーす...
-
アクセス クエリを別のファイ...
-
[エクセル]コピーするとオブジ...
-
パワポでスライドをコピーでき...
-
bat 同名ファイルコピー時にリ...
-
エクセルVBAで開いているファイ...
-
FTPとファイルコピーの違いにつ...
-
ファイルサーバ上のファイルが...
-
ファイルをコピーできない
-
開いている別のファイルにExcel...
-
FSO.CopyFileでのエラー無視方法
おすすめ情報