Visual Basic User's Clubコミュのworkbooks.openの仕方

分かる方いらっしゃったら教えてください。お願いします。

Documents and Settingsﾌｫﾙﾀﾞｰの中に例えば、「2007年7月」フォルダーを作成し、そのフォルダー内にエクセルで
「1.xls」を作成します。
で別のエクセル（ここでは2.xlsとしておきます）の中でマクロを次のように作ります。

Sub open()

A= Range("A1")

Workbooks.Open Filename:="C:\Documents and Settings\ " & A & " &1.xls"

End Sub

ここで、2.xlsのA1セルに「2007年7月」と入力してから、マクロを実行するのですが、うまく実行できません。A１セルをセルの書式設定で書式形式を変更しなければいけないのかなと個人的には思ったので、いろいろ行ってみたのですがどうしても実行できないのです。

どこにだめな点があるのか、分からないので、分かる方いらっしゃったら、ご指摘ください。宜しくお願いします。

コメント(3)

最初
全て
最新の40件

[2] mixiユーザー 07月16日 14:13

Excel2003では下記コードで動作しました。ご確認下さい。
Sub WorkbookOpen()

A = Range("A1").Text

Workbooks.Open Filename:="C:\Documents and Settings\" & A & "\1.xls"

End Sub

修正点は以下の3点です。
1.プロシージャ名
　openという名前はVBAのopenステートメントと重複するためエラーが出ます。よって別の名前に変更しました。
2.セルから値の取り出し
　書式設定で設定した書式形式の文字列で値を取り出すために、Range.textプロパティを利用しました。
3.Workbooks.openメソッドに引き渡すパス
　当初のままでは、"C:\Documents and Settings\ 2007年7月 &1.xls"となってしまい、意図通りのExcelファイルのフルパスにならないため、正しいパスになるように修正しました。

[3] mixiユーザー 07月16日 20:23

>しばさん
動きました！！