A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは。
Wendy02です。>いろいろ調べてみたのですが、思うようなものがありませんでした。
私の書いたのは、参考になりませんでしたか?
少し、換えていますが、3Way(ブックのないとき,ブックを開いているとき,ブックを開いていないとき)の対応が出来ます。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1937200
(http://okwave.jp/kotaeru.php3?q=1937200)
Sub TestBookOpen()
Dim Book_A As String
Dim Book_Ar As String
Dim BK1 As Workbook
Dim dummy As Variant
Dim Sheet_A As String
Book_A = "Book1ABC.xls" 'と置く(パス付き可)
Sheet_A = "Sheet1"
'ブック名を取る(パス抜き)
If InStr(Book_A, "\") > 0 Then
Book_Ar = Mid$(Book_A, InStrRev(Book_A, "\") + 1)
Else
Book_Ar = Book_A
End If
'最初に、Dir 関数で調べる。
If Dir(Book_A) = "" Then
Set BK1 = Workbooks.Add
BK1.SaveAs Filename:=Book_A
Else
'ブックを開いていることを調べる(A1方式の場合)
dummy = Evaluate("[" & Book_Ar & "]" & Sheet_A & "!A1")
If IsError(dummy) Then
'開いていなければ、ブックをOpen
Set BK1 = Workbooks.Open(Book_A)
Else
'開いていれば、そのまま設定
Set BK1 = Workbooks(Book_Ar)
End If
End If
'作業
'終了
Set BK1 = Nothing
End Sub
この回答へのお礼
お礼日時:2006/02/08 06:14
何度もありがとうございます。
>私の書いたのは、参考になりませんでしたか?
いえいえ、大変参考になりました。本当に感謝しています。
ただ私が手を加えるには少し難しかったです・・・
今回もありがとうございます。
早速使わせて頂きます。
No.2
- 回答日時:
if dir(ブック名)="" then
ActiveWorkbook.SaveAs Filename:=ブック名
goto line2
else
end if
といった感じではないでしょうか。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) マクロの保存先、開いてるすべてのブックの意味 エクセルを開き、表示→マクロ→マクロの表示と順番に開く 3 2022/06/25 17:52
- Excel(エクセル) beforecloseの中からの抜け出し方 1 2023/08/10 18:01
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセルで参照しているデータ...
-
複数ファイルから特定シートの...
-
複数のセルをコピーし、別シー...
-
Excel(2010)のフィルターが保...
-
エクセルで「ディスクがいっぱ...
-
Excelでブックの共有を掛けると...
-
WorkBooksをオープンさせずにシ...
-
別ブックから入力規則でリスト...
-
【マクロ】【VBA】別ブックへの...
-
Excelファイルをダブルクリック...
-
エクセルファイルを開かずにpdf...
-
複数のブックをひとつのブック...
-
エクセルにおける,「ブック」...
-
外部ブック参照が#REF!になって...
-
フォルダ内ブックの数式を全て...
-
エクセルで50行ごとに区切った...
-
同じフォルダへのハイパーリン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
WorkBooksをオープンさせずにシ...
-
Excelでブックの共有を掛けると...
-
エクセルで参照しているデータ...
-
Excel(2010)のフィルターが保...
-
Excelで複数ブックの同一セルに...
-
VBA バックグラウンドで別ブッ...
-
エクセルで50行ごとに区切った...
-
エクセルで「ディスクがいっぱ...
-
エクセルにおける,「ブック」...
-
エクセルファイルを開かずにpdf...
-
フォルダ内の複数ファイルから...
-
ブックのピボットを別ブックに...
-
エクセルシートの一部を送りたい
-
エクセル2016です。「ブッ...
-
エクセルで別ブックをバックグ...
-
フォルダ内の複数ファイルから...
-
複数ファイルから特定シートの...
おすすめ情報