こんにちは。
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
どなたか解決策のわかる方はお願いいたします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/05/04 22:17