###発生している問題
エクセル【A】からVBAマクロを起動して、エクセル【B】上のセル(A1)の文字列を取得し、エクセル【A】上のセル(A1)のコメント欄にセットしたいです。
ですがうまくいかないので、まずは【A】のセル(A1)に文字列をセットするようコーディングして試しています。
(1)別ブックから文字列を取得するには、ソースコードをどう修正したらよいですか。
(2)別ブックのセル(A1)から文字列を取得して、セル(A1)のコメント欄に設定したい場合は、どうコーディングすればよいですか。
一昨日からいろいろ試していますが、解決できません。どなたかお知恵を貸していただけませんか。
マクロを動かすと、ソースコードの★箇所、右辺のreadSheet.Cells(1, 1).Value はエクセル【A】のA1データを取得しているようです。
###該当のソースコード
<Excel 2013>
Sub Macro1()
'
Dim writeSheet As Worksheet '【A】自分自身の書き出し用ワークシート
Set writeSheet = ThisWorkbook.Worksheets(1) '【A】1番左のワークシートを参照
mypath = "C:\Users\user\Desktop\test" '【B】
fname = "文字列取得用.xlsx" '【B】
Dim readBook As Workbook '【B】文字列取得用ブック
Set readBook = Workbooks.Open(mypath & fname) '【B】文字列取得用ブックを開いて参照
Dim readSheet As Worksheet '【B】文字列取得用ブックのワークシート
Set readSheet = readBook.Worksheets(1) '【B】文字列取得用ブックの1番左の相手シートを参照
With writeSheet
**__.Range("A1").Value = readSheet.Cells(1, 1).Value __ **'★
End With
readBook.Close False '【B】エクセルブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing
End Sub
###試したこと
ネットでサンプルコードを調べてマクロを動かしてみましたが、別ブックから文字列取得ができず、その解決方法がわかりません。
###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2013
Windows7 64bit
回答1件
あなたの回答
tips
プレビュー