
エクセルマクロでの質問です。
Sub ブックまとめ()
Dim matome As WorkSheet,scorewb As WorkBook
Set matome = WorkSheets("シート")
Dim fileName As String
Dim mypath As S tring
mypath = "C:¥Users¥nisid¥Desktop¥2020¥活動¥
データ¥当日"
fileName = Dir(mypath&"¥*.xlsx")
IF fileName<>"" Then
Dim sh As WorkSheet
Dim lastRow As Long
Dim Rng As String
lastRow = matome.Cells(Rows.Count, 1)
.End(xlUP).Row
Application.ScreenUpdating = False
Do
Set scorewb = Workbook.Open(fileName:=mypath
&"¥"&fileName)
Set sh = scorewb.WorkSheets("Sheet1")
Rng = sh.Range("W1048564:AI1048564").Value
lastRow = matome.Cells(Rows.Count,1)
.End(xlUP).Row
Rng.Copy matome.Cells(lastRow+1,1)
scorewb.Close savechanges:=False
fileName = Dir()
Loop Until fileName =""
Application.ScreenUpdating = True
Else
MsgBox"データがない"
End If
End Sub
No.3ベストアンサー
- 回答日時:
こんばんは、
値のみで良いのであれば、こんな感じではどうでしょう?
Dim Rng As String を Dim Rng As Variant
Rng = sh.Range("W1048564:AI1048564").Value を Rng = sh.Range("W1048564:AI1048564")
Rng.Copy matome.Cells(lastRow + 1, 1) を matome.Cells(lastRow + 1, 1).Resize(UBound(Rng, 1), UBound(Rng, 2)).Value = Rng
他の改行が変だったり、全角だったり、
半角スペースが無かったりは、対象として考えていません。
No.4
- 回答日時:
ここの質問をそのまま標準モジュールにコピーしたら
赤字のエラーがでますが、そこはアップ時のミスでしょうか?
> "修飾子が不正です"とでます。
これは 1行上の
.End(xlUp).Row
のところではありませんか?
実際のところ
lastRow = matome.Cells(Rows.Count,1).End(xlUP).Row
と一続きに書かなくてはいけないんですが。
アップしたものと実際のものが異なっているとエラー探しはできませんので、
Rng がエラーになるものを修正せずにそのままコピペしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【VBA】ワークブックを開く時に...
-
お助けください!VBAのファイル...
-
バッチファイルからVBA実行でエ...
-
VBAのリストボックスで、横スク...
-
VBAでfunctionを利用しようとし...
-
VB.net 重複チェックがしたいです
-
レコード登録時に「演算子があ...
-
インポート時のエラー「データ...
-
ApplicationとWorksheetFunctio...
-
【VB.NET】 パワポ操作を非表示で
-
String""から型'Double'への変...
-
シングルクォーテーションを含...
-
「実行時エラー '3167' レコー...
-
pythonのopenpyxlについて
-
文字列内で括弧を使うには
-
.VBSだとADODBのプロバイダが見...
-
SQLでエラーです。
-
【VBA】if Like Or Andの組み合...
-
Null 値の使い方が不正です と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
【VBA】ワークブックを開く時に...
-
VBAでfunctionを利用しようとし...
-
String""から型'Double'への変...
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
レコード登録時に「演算子があ...
-
【Access】Excelインポート時に...
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
ApplicationとWorksheetFunctio...
-
On ErrorでエラーNoが0
-
Excel vbaについての質問
-
ACCESSで値を代入できないとは?
-
VBA データ(特定値)のある最...
-
【VBAエラー】Nextに対するFor...
-
「実行時エラー '3167' レコー...
-
実行時エラー'-2147467259(8000...
おすすめ情報
複数のブックのデータを1つのシートにまとめる
コード内容を作ったのですが
Rng.Copy...の所のRngが青表示で
"修飾子が不正です"とでます。
調べたところ
String型変数にしているからエラーがでるみたい
なのですがそこからどうしたら
いいか分かりません
何卒よろしくお願いいたします