- ベストアンサー
SaveAsメソッドについて
yarazuの回答
以下のようにしてエラースキップできませんか？ Private Sub CommandButton1_Click() On Error GoTo ErrPos: ActiveWorkbook.SaveAs ErrPos: End Sub
関連するQ&A
- VBAのSAVEASメソッド
こんにちわ。 ACCESS2000のVBAでEXCEL2000ファイルを操作していますが， ファイルを上書きする「.SaveAsメソッド」を実行したとき， 「ファイルを上書きしますか?-はい/いいえ/キャンセル」という ダイアログが表示されます。 このダイアログを表示せずに強制的に上書き保存したいのですが， どのようにすればよいでしょうか？ 教えてください。お願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
- EXCEL VBA SaveAsメソッドについて
お世話になります。 現在、ネットワーク内の２サーバー間でvbsを使用してExcelピボットを更新して別名で保存する処理 を作成しています。この時、Server１からExcelマクロ実行用のvbsをキックしてServer2のExcel マクロ内のSaveAsメソッドを実行してExcelを別名で保存すると、 作成されるべきファイルと拡張子無しの16進数のようなファイル名のファイルが2つ出来上がってしまいます。 Excelのバージョンは2003でServer2のExcelマクロを手動で実行した場合はこのようなことは発生しませんでした。 どなたか原因がわかる方がいればご教示いただきたく存じます。 何卒よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルVBAのメソッドSaveasについて
Dell Dimention8300 HDD 80GB （空き領域 17.4GB） Pentium4 2.6GHz 512MB RAM Windows XP Pro/エクセル2002使用です。 エクセルVBAで下記のようファイルを追加するようにしました。 ブックA（.xls) 147KB ブックB（.xls) 18KB ブックC（.xls) 7,955KB ブックAにマクロを記述 ブックBから新しいファイルをつくる個数を取得 略 for i = 1 to (新しく作る個数） Workbooks（"ファイルC").Activate ActiveWorkbook.SaveAs FileName:="C:\・・・・・・（新ファイル名）" next 略 ファイルCをメソッドSaveAsにて新しいファイルを作っていくのですが、その個数が数十個程度あれば問題ないのですが、100個を越えると非常に遅くなるか、途中でプログラムの応答がなくなります。 メソッドSaveAsが、CPUかメモリを浪費しているのかと思うのですが、関係あるでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- GetOpenFilename メソッドについて
ＡＣＣＥＳＳのＶＢＡで、GetOpenFilename メソッドを使いたいのですが、ＶＢＡで記述を行うとエラーになってしまいます。ＥＸＣＥＬのＶＢＡでは、記述できます。ＡＣＣＥＳＳのＶＢＡでは、使用できないのでしょうか？ どなたか、教えて下さい。 （ＡＣＣＥＳＳは、Ｏｆｆｉｃｅ ＸＰです）
- ベストアンサー
- Visual Basic
- SaveとSaveAsの違いを認識させるには？
エクセルで、「上書き保存」の時だけ実行したいVBA。 「名前を付けて保存」には実行してほしくないんです。 上書き保存する時は、任意のメッセージを表示する。 YesNo、どちらの回答でも上書き保存は実行されるという内容でVBA作成し、 ThisWorkbookに以下のコードを貼り付けました。 Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean) If SaveUI = False Then If MsgBox("日付は記入しましたか？", vbYesNo + vbQuestion) = vbNo Then MsgBox "記入してください。" End If End If End Sub ところが問題が生じました。 単品単位では、上書き時のみ実行してくれる希望通りの動きをしてくれるのですが、 標準モジュールを実行した際、その中にある"SaveAs"に反応して実行されてしまうので困っています。 標準モジュールが絡むとおかしくなるのを回避するにはどうしたらいいでしょうか？ BVAは勉強しだしたところです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- ActivateMicrosoftAppメソッドは
ActivateMicrosoftAppメソッドはエクセルにしかないのでしょうか？ アクセスで Application.ActivateMicrosoftApp xlMicrosoftWord をしたら、エラーになりました。 アクセスにはエクセルのActivateMicrosoftAppに変わるメソッドはないのでしょうか？ バージョンは２００７です。
- ベストアンサー
- オフィス系ソフト
- Excel2007 実行時エラー1004
宜しくお願い致します。 Excel2003環境時に作成したマクロを2007環境で動作させると実行時エラー１００４が返ってきます。 対策をお教えいただきたくお願いします。 (1)Excelで表作成 (2)作成した表を所定パスにText形式で保存するマクロを実行 【Excel２００３でのソース】 ActiveWorkbook.SaveAs filename:=（ファイルパス） & ".txt" _ , FileFormat:=xlText (3)FileFormatの箇所で実行時エラー１００４（SaveAsメソッドは失敗） Excel2007で上記部分に下位互換市内部分が含まれているのだとおもいますが、対策が全く分かりません。 お知恵をお借りしたくお願いします。
- ベストアンサー
- その他MS Office製品
- SaveAsでバージョンを指定して保存する方法
SaveAsでバージョンを指定して保存する方法が分かりません。 WINDOWS７ ACCESS2010のVBAから、EXCEL2000用のファイルとして保存するために、以下のようにしました －－－－－－－－－－－－ Dim oApp As Object Dim oWkb As Object Dim oWks As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True oApp.DisplayAlerts = Flase '確認メッセージの非表示 Set oWkb = oApp.Workbooks.Open(filename:=CurrentProject.Path & "\" & MyFile, PassWord:="") ・ ・ ・ ↓ここで「オブジェクトがありません」と言うエラー oWkb.SaveAs CurrentProject.Path & "\" & MyFile, FileFormat:=xlExcel9795 どのようにしたら宜しいですか？
- ベストアンサー
- その他（プログラミング・開発）
- ＶＢＡを使用して自動的に保存する事について
ＶＢＡでエクセルファイルを開き、そのエクセルファイルを上書き保存してファイルを自動的に閉じたいのですが… 参考書によると、Saveメソッドを使用するとよいと書いていますが、 上書き保存する場合は、一度も保存していないブックに対しては、Ｓａｖe asメソッドを使用するようにあります。 現在Save asメソッドを使用して保存は可能となりましたが、、、 保存する場所をＶＢＡでファイルを開く際に指定した、Ｐathに指定し、 Msgボックスで保存する場所を表示させず、自動的に指定した場所にデータを上書き保存して、 作業を行ったエクセルシートを閉じたいのですが可能でしょうか？？ エクセルシートを閉じる際は、ＶＢＡで作業を行うためのエクセルシートは開いたまま、作業のために開いたエクセルシートのみを閉じたいのです。 詳しい方がいらっしゃり、上記の事が可能であればご指導の程お願いします。
- ベストアンサー
- Visual Basic
- エクセルVBA 実行時エラーって出るんですけど・・・；；
いつもお世話になってます またまた質問載せさせていただきます。 マクロで２つのファイルをSaveasで各保存をした後に、 エクセルを閉じると、 実行時エラー'1004' WorksheetクラスのSelectメソッドが失敗しました と出るのです。 デバックボタンもグレーのままなので、デバックは使えないし、そのまま終了をかけると、エクセル自体が閉じられるので、 さっぱり何がなにやらって感じなのです。 どなたか分かる方いらっしゃいますでしょうか？？
- ベストアンサー
- その他(ソフトウェア)
お礼
yaruzu様 ご回答ありがとうございました。 教えていただいた方法でエラーは回避できました。 ありがとうございました。 しかし、SaveAsメソッドの実行時に「いいえ」を 選択したときがエラーになるというのも、 なんだかへんな感じですが、、、