.copyメソッドについて

前提・実現したいこと

はじめまして、vbaでいつもお世話になっています。
まだまだ不慣れで、一人ではうまく解決できないためお力をお貸しください。
よろしくお願いします。

問題発生箇所を以下のように具体化したらうまく行きました。
しかし、発生問題の原因がわかりません。

問題箇所：
With WB1.Sheets("Sheet0")
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　←ここ
End With

解決時の式：
Range("A1:BQ1000").Copy

発生している問題・エラーメッセージ

アプリケーション定義、またはオブジェクト定義のエラー

C29　ファイル名

Dim WB1 As Workbook
Dim F_Name As String
Dim MaxR As String
Dim MaxC As String

F_Name = Sheets("作成手順").Range("C29")

Workbooks.Open (F_Name)　
Set WB1 = Workbooks(F_Name) 'Backlogダウンロードファイル
MaxR = WB1.Sheets("Sheet0").Cells(1, 1).End(xlDown).Row
MaxC = WB1.Sheets("Sheet0").Cells(1, 1).End(xlToRight).Column

With WB1.Sheets("Sheet0")
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　←ここ
End With

ThisWorksheets.Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

vba

試したこと

①with文の不使用
WB1.Activate
' With WB1.Sheets("Sheet0")
'WB1.Sheets("Sheet0").Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
Range(Cells(1, 1), Cells(MaxR, MaxC)).Copy
'End With

②activate
With WB1.Sheets("Sheet0")
.activate
.Range(.Cells(1, 1), .Cells(MaxR, MaxC)).Copy　←ここ
End With

※どちらも同様のエラーが出現します

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

takito

2019/03/22 07:05

「うまくいかず」とは具体的に何が起きていますか？どうなることを想定してどうなったのか、どのようなエラーメッセージが出ているのか、などを追記してください

行動規範の内容に同意します

回答4件

ベストアンサー

編集後の内容について

WB1.Sheets("Sheet0").Cells(1, 1).End(xlDown).Rowと WB1.Sheets("Sheet0").Cells(1, 1).End(xlToRight).Columnの戻り値は文字列ではなく数値ですので、変数型が間違っています。

vba
1Dim MaxR As String
2Dim MaxC As String

ではなく

vba
1Dim MaxR As Integer
2Dim MaxC As Integer

としましょう。

投稿2019/03/22 07:36

TakamiChie

総合スコア59

yumeno

2019/03/22 07:41

初歩的なミスを見過ごしていました･･･TakamiChieさんからご指摘いただかなければ、お恥ずかしいことに気づくことができませんでした。ありがとうございます！

行動規範の内容に同意します

私もよくわかってないのですみませんが・・・

最初のコードの・・・・

Workbooks.Open (F_Name)　←このあと
Set WB1 = Workbooks(F_Name) 'Backlogダウンロードファイル

・・・の2行を消して、以下の1行のコードに差し替えたらどうなりますでしょうか？

VBA
1
2Set WB1 = Workbooks.Open(F_Name)
3

もし、F_Name にファイルのフルパスが入っていたとしたら、

Workbooks(F_Name)は、
Workbooks("C:\Users\Desktop\xxx.xlsx")

みたいな意味になってしまうので、エラーになるかもです。

それか
Set WB1 = Workbooks(F_Name) 'Backlogダウンロードファイル
の行だけを
Set WB1 = Workbooks(数字) 'Backlogダウンロードファイル
にするとか
Set WB1 = Workbooks("単なるファイル名のみ") 'Backlogダウンロードファイル
にするとか・・・

見当違いでしたらごめんなさい。

投稿2019/03/22 07:34

編集2019/03/22 07:35

komugi3333

総合スコア94

Dim MaxR As String
Dim MaxC As String

Dim MaxR As Long
Dim MaxC As Long

ぱっと見、行番号と列番号を入れる変数に文字列型を用意するのはおかしいですね。
それを直して、上手くいくかわからないですが。

またはオブジェクト定義のエラー

だから、存在しない操作対象を指定しているということですね。
ぱっと見、指定しているセル範囲が存在しない可能性があります。
（番号を入れるところに文字列を入れるように書いているので、上手く認識してくれない？）
エラーで止まった時に、ローカルウィンドウで変数の中身を確認して、
期待している値になっているか確認しましょう。
数字的に期待してる文字なら、

.Range(.Cells(1, 1), .Cells(Clng(MaxR), Clng(MaxC))).Copy

と直したら、どうなりますかね？

たぶん以下だとエラーにはならないとは思います。

VBA
1Sub test()
2    Dim WB1 As Workbook
3    Dim F_Name As String
4
5    F_Name = Sheets("作成手順").Range("C29").Value
6    Set WB1 = Workbooks.Open(F_Name)
7    WB1.Sheets("Sheet0").Range("A1").CurrentRegion.Copy
8    ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteFormulas
9End Sub

参考URL>>
アクティブセル領域の選択(CurrentRegionプロパティ)

あと、

ThisWorksheets

↑これはエクセルVBAには定義されていないオブジェクトですので、コピーが上手くいっても次でまたひっかかりそうです。
ついでに確認してみてください。

投稿2019/03/22 07:43

mattuwan

総合スコア2136

yumeno

2019/03/22 07:55

回答ありがとうございます。とてもシンプルで見やすいですね、範囲のとり方が非常に勉強になりました！ Set WB1 = Workbooks.Open(F_Name)　のところで『有効範囲内のインデックスにありません』とのエラーがでました。現在その問題を解決すべく試行錯誤しています。

mattuwan

2019/03/22 08:44

インデックスに問題があるなら、それはファイル名のことでしょう。止まった時にローカルウィンドウでF_Nameの値が意図したものが入っているか、そしてファイルのフルパスになっているかかくにんしてみてください。

行動規範の内容に同意します

これだけだとちょっと分からないですね。とりあえず自分の環境でテストした限りですと、ちゃんと動きました。

vba
1    Dim WB1 As Workbook
2    Dim F_Name As String
3    Dim MaxR As String
4    Dim MaxC As String
5    
6    F_Name = Sheets("作成手順").Range("C29")
7    
8    Workbooks.Open (F_Name)→ファイルが開けた