EXCEL ファイルの VBAで、 OneDrive上の ファイルを コピーして XLSX および XLS旧フォーマット 両方の 保存形式で ファイルを 保管しようとしています。
WINDOWS8.1 EXCEL2013 を 使用しています。
ONEDRIVE上へ、コピー作成する同名ファイルがなく、 新規のファイルを コピー作成する場合は 『Microsoft Excelは動作を停止しました。』 というエラーが (ファイルをコピー作成していますが)、 出てしまいます。
上書きする場合は エラー がでない模様です。
'
Sub 旧EXCEL形式保管()
'
Application.DisplayAlerts = False
'
Dim PathName, FileName1, FileName2, FileName3 As String
'
PathName = ActiveWorkbook.Path
FileName1 = "テスト.xlsx"
FileName2 = "テストCOPY旧.xls"
FileName3 = "テストCOPY新.xlsx"
'
Workbooks.Open Trim(PathName) & "\" & Trim(FileName1)
Windows(Trim(FileName1)).Activate
'
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName3)
ActiveWorkbook.Close
'
Workbooks.Open Trim(PathName) & "\" & Trim(FileName1)
Windows(Trim(FileName1)).Activate
'
If Application.Version < 12 Then
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel9795
Else
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel8
End If
'
ActiveWorkbook.Close
'
End Sub
'
より効率的な VBA記述、 エラーへの対処方法 を 教えていただけないでしょうか?
よろしく お願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> *** この行で エラーが 発生します。
だから、どの行?
ActiveWorkbook.SaveAsの行? ActiveWorkbook.Closeの行?
SaveAsの行なら、
> FileFormat:=xlExcel8
の右辺を定数値[56]にしてみる。
Closeの行なら、Quitにしてみる。
この回答への補足
エラーが出る行を ご指摘のとおり 下記のように 変更してみましたが、同様の エラーが まだ発生します。
If Application.Version < 12 Then
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel9795
Else
''' ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel8
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=56
End If
'
すみませんが、よろしく お願いします。
No.1
- 回答日時:
どの行でエラーになりますか?
特定できてないなら、
> Application.DisplayAlerts = False
をやめて、F8で一行ずつ実行。
この回答への補足
さっそくの 回答ありがとうございます。
If Application.Version < 12 Then
ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel9795
Else
*** ActiveWorkbook.SaveAs Filename:=Trim(PathName) & "\" & Trim(FileName2), FileFormat:=xlExcel8
End If
*** この行で エラーが 発生します。
言い忘れていましたが、 Windows7 Excel2010 の組み合わせで実施した場合は エラーとなりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
onedrive にexcelファイルをアップロードしようとするとエラーがでる。
Microsoft ASP
-
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
-
4
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
5
VBAファイルの保存先について
その他(Microsoft Office)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
(Excel VBA)シートコピー時マクロはコピーしたくない
Excel(エクセル)
-
8
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
9
Excel 条件によって入力禁止にする
Excel(エクセル)
-
10
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
11
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
12
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
13
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
14
Excel VBA Outlookメール作成について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「パス名が無効です」の発生原因
-
RAR圧縮ファイル(分割)の順番が...
-
PowerShellを使って関連付けら...
-
DisplayAlertsブロパティで ”実...
-
gccを行ってもexeファイルが生...
-
メニューのショートカットキー
-
Microsoft Photo Editorのエラ...
-
DOCUMENT行の書き出しについて-...
-
システムのシャットダウンは既...
-
Adobeのプレミアプロの書き出し...
-
Excel VBAのApplication.Execut...
-
VBA ExecuteExcel4Macro 型が一...
-
兵庫県教員採用試験の願書記入...
-
VBでファイルが開かれているか...
-
構造体をランダムファイルに書...
-
外付けHDDが調子悪い 故障の前...
-
「複数の選択範囲に対して実行...
-
ISOファイルとMDSファイル
-
生鮮MDシステムについて。
-
差し込み印刷の元データファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
gccを行ってもexeファイルが生...
-
VBでファイルが開かれているか...
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
VBから参照できないCのDLLを使...
-
FTPの送信結果を検知したい
-
access テキストボックスの値取得
-
PowerShellを使って関連付けら...
-
Returnに対するGoSubがありません
-
アクセスのクエリでコンパイル...
-
OUTLOOK VBA 指定フォルダ内の...
-
Adobeのプレミアプロの書き出し...
-
EXCELのVBAでWORDが開いてある...
-
NAS上のファイルの使用中が解除...
-
すでにファイルが開かれている...
-
VB6 Dir関数で52エラー発生
-
FORTRANの実行エラーについて
-
Excelvbaのマクロのファイル名...
-
Excelファイルのマクロによる排...
-
エクセルマクロでエラーの原因...
おすすめ情報