| |
こんにちは。かみちゃん です。
>ファイル名はセルに入力してあり
>マクロを実行するとそのファイルが開くというものです。
>ちなみに「マクロの記録」では下記の記述となりました。
>
>Workbooks.Open Filename:="C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\1234567.xls"
>
>この「1234567.xls」部分をセルに入力されている内容を自動で読み込みたいのです。
A列に開きたいファイル名が記述してある場合、以下のような感じでできますが、
ブックを開きっぱなしになるので、危険なコードになっています。
でも、開いた後、どうしたいのかがわかりませんので・・・
Sub Macro1()
Dim LastCell As Range, c As Range
Set LastCell = Range("A65536").End(xlUp)
For Each c In Range("A1", LastCell)
strFileName = "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & c.Value
If c.Value <> "" And Dir(strFileName) <> "" Then
'ファイル呼び出し
Workbooks.Open Filename:="C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\" & c.Value
'？？？開いたあとどうしたいのか？？？
c.Offset(, 1).Value = "成功"
Else
c.Offset(, 1).Value = "失敗"
End If
Next
Range("A1").Select
Set LastCell = Nothing
End Sub
|
|
かみちゃん
- 05/11/27(日) 19:17 -
