|
▼かもあも さん:
こんばんは。
私もまだ、かもあも さんが何が知りたいのかわかりません。
このコードは
>
>Sub Macro1()
> Dim xlname As String
>
> xlname = Dir(ActiveWorkbook.Path & "\*.xls")
'現在アクティブになっているブックと同じフォルダに保存されているブック名の
'ひとつををxlnameに取得します。この場合は、アクティブになっているブック名かも
'しれませんし、そうでないかもしれません
'xlnameにアクティブなブック以外のブック名が取得できたと仮定して・・・。
> Cells(1, 1) = xlname
>
> Range("A2").Select
> With Selection
> .Formula = "='" & ActiveWorkbook.Path & "\[" & xlname & "]Sheet1'!A2"
'同じフォルダ内に存在するブックのSheet1(シート名)のセルA2の値を
'ブックを開かないで取得する方法です。
> .Value = .Value
> End With
>
> xlname = Dir
>
>End Sub
>いままで、ブック名やシート名の取得がわからず、毎回指定してました。
>でも、過去の投稿から、以下のマクロが使えそうなのですが、
>ファイルを開いてる状態でのセルの値を取得がわかりません。
アクティブなシートの特定のセルの値を取得したいということですか?
ならば・・・。
'============================================================
sub main()
msgbox activesheet.range("a2").value
end sub
なのですが・・・。
これではない場合には、具体例を出して下さい。
|
|