質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

1063閲覧

【VBA】他のワークブックのセルをマージしたい

Masalu_Kudou

総合スコア91

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2018/05/04 17:01

こんにちは。
VBAに詳しい方お願いいたします。

現在VBAのツールを作っており、その中で解決できない事象が出てきてしまいました。
【対象ファイル】
MergeTest.xlsm
testA.xlsx

【やりたいこと】
MergeTestで実行するVBAでtestA.xlsxのCells(1, 1)からCells(1 ,10)まで結合させる。
※実際は他のツールに実装予定で、今回はその機能確認をしておりました。

【プログラム】
<MergeTest.xlsm>
Sub Merge()
Dim path As String
Dim file As String
Dim wb As Workbook
Dim ws As Worksheet

path = "C:\Users\BIBLO\Desktop\" file = "testA.xlsx" Set wb = Workbooks.Open(path & file) Set ws = wb.Worksheets(1) ws.Range(Cells(1, 1), Cells(1, 10)).Merge

End Sub

これをおこなうと下記の実行時エラーが出てきます。
実行時エラー '1004':
アプリケーション定義またはオブジェクト定義のエラーです。

また、試しにtestA.xlsx本体で下記を実行したときうまく動きました。
Sub Test()
Range(Cells(1, 1), Cells(1, 10)).Merge
End Sub

どなたか解決策のわかる方はお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

手元のExcel 2013ではうまく動いてしまったので想像なのですが、testA.xlsxの対象シートが開いた直後にアクティブになっておらず、Cellsが正しく解釈できていないのかも知れません。
次のどちらかで解消しないでしょうか。

  • ws.Range(Cells(1, 1), Cells(1, 10)).Mergeの前にws.Activateを入れる

  • ws.Range(Cells(1, 1), Cells(1, 10)).Mergews.Range(ws.Cells(1, 1), ws.Cells(1, 10)).Mergeに変える

投稿2018/05/04 17:54

segavvy

総合スコア958

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Masalu_Kudou

2018/05/04 22:17

segavvyさん ws.Range(wa.Cells(1 ,1), ws.Cells(1, 10))に変えたら動きました!中のCellsは盲点でした!!ありがとうございます!
guest

0

ベストアンサー

いくつか原因と解決方法がありますが、
・Sub Merge()をMergeTest.xlsmのシートに作っている
場合にエラーになると思います。

解決方法として
・Sub Merge()をMergeTest.xlsmのThisWorkbookのほうに置く
・下記ソースに変更する(こちらが安定)

VBA

1ws.Range(Cells(1, 1), Cells(1, 10)).Merge

VBA

1ws.Range(ws.Cells(1, 1), ws.Cells(1, 10)).Merge

原因は
MergeTest.xlsmのシートに作っているSub Merge()を実行することで、CellsがMergeTest.xlsmのシートのCellsになるのに、RangeはtestA.xlsxのWorksheets(1)で作業するように指示しているから
だと思われます。
ws.Cellsにすることで、testA.xlsxのWorksheets(1)の作業にすることができます。

投稿2018/05/04 17:37

crowmt

総合スコア402

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Masalu_Kudou

2018/05/04 22:23

crowmtさん ws.Range(wa.Cells(1 ,1), ws.Cells(1, 10))に変えたら動きました!Rangeの中のCellsは盲点でした!!ありがとうございます!
crowmt

2018/05/04 23:04

Cellsは私もよく見落とします。無事に解決したようでなによりです。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問