Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


53828 / 76732 ←次へ | 前へ→

【27712】Re:ファイルを別名保存した後、ファイル...
質問  りん E-MAIL  - 05/8/16(火) 22:02 -

引用なし
パスワード
   にんはさん、Endさん、こんばんわ。

>>Q2)上書き保存の場合
>saveasするとき、以下のようなエラーがでます
>「Microsoft Excel-Book1アプリケーション(Microsoft Excel-Book1)
>の起動を切り替えて・・・」
>(ちょっといじったらこのエラーがでなくなってしまって。)
>でも「切り替え」ボタンを押したら処理は進みます。
>>また、
>>>book1.xlsが怪しいんですけど。。。
>>とおっしゃるからには、何か心当たりがおありでは?
>保存したxlsを開こうとすると、Book1.xlsがたちあがるのです。
>なにも表示されないもの。。。。
>ファイル名がおかしいのかしら。

>なおしてまたやってみますが、どうぞ宜しくお願いします。

エラーが出た後で、パソコンを再起動してやりなおしましたか?


エラー回避のために、ファイルをいろいろチェックしてから保存する方法です。
Sub Test()
  Dim newbook As Workbook, wb As Workbook, ws As Worksheet
  Dim Opath As String, Ofile As String
  '
  Set ws = ActiveWorkbook.ActiveSheet
  Set newbook = Workbooks.Add
 
  'コピー元xls
  'varxls = "C:A.xls"
  'Workbooks.Open Filename:=varxls
  ws.UsedRange.Copy _
         Destination:=newbook.Worksheets(1).Range("A1")
  Opath = "D:\システム\結果\" 'フォルダ(最後の\を忘れないでね)
  Ofile = "A2【番号】 【名】 様.xls" 'ファイル名
  '同じ名前のブックが開かれていたらエラーになるので閉じる(保存はしません)
  On Error Resume Next
  Set wb = Application.Workbooks(Ofile)
  On Error GoTo 0
  If Not wb Is Nothing Then
   wb.Saved = True '保存したフリ
   wb.Close '保存しないで閉じる
   Set wb = Nothing
  End If
  '同じ名前のファイルがフォルダ内にあったら削除しておく
  If Dir(Opath & Ofile) <> "" Then Kill (Opath & Ofile)
  '改めて保存
  newbook.SaveAs Filename:= _
   Opath & Ofile, _
   FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
   ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
これでどうでしょうか?
再起動してから確認してみてください。
1 hits

【27701】ファイルを別名保存した後、ファイルが開かない にんは 05/8/16(火) 19:10 質問
【27703】Re:ファイルを別名保存した後、ファイル... End 05/8/16(火) 20:02 発言
【27705】Re:ファイルを別名保存した後、ファイル... にんは 05/8/16(火) 20:34 回答
【27707】Re:ファイルを別名保存した後、ファイル... End 05/8/16(火) 21:06 発言
【27709】Re:ファイルを別名保存した後、ファイル... にんは 05/8/16(火) 21:28 質問
【27712】Re:ファイルを別名保存した後、ファイル... りん 05/8/16(火) 22:02 質問
【27714】Re:ファイルを別名保存した後、ファイル... End 05/8/16(火) 22:25 発言
【27716】Re:ファイルを別名保存した後、ファイル... りん 05/8/16(火) 22:46 発言
【27717】Re:ファイルを別名保存した後、ファイル... End 05/8/16(火) 22:57 発言
【27718】Re:ファイルを別名保存した後、ファイル... りん 05/8/16(火) 23:03 発言
【27719】Re:ファイルを別名保存した後、ファイル... End 05/8/16(火) 23:13 発言
【27722】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 9:43 回答
【27728】Re:ファイルを別名保存した後、ファイル... りん 05/8/17(水) 11:40 発言
【27721】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 9:39 回答
【27724】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 9:46 回答
【27720】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 9:36 質問
【27725】Re:ファイルを別名保存した後、ファイル... Jaka 05/8/17(水) 10:00 発言
【27727】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 10:54 回答
【27737】Re:ファイルを別名保存した後、ファイル... End 05/8/17(水) 15:01 発言
【27738】Re:ファイルを別名保存した後、ファイル... End 05/8/17(水) 15:04 発言
【27739】Re:ファイルを別名保存した後、ファイル... にんは 05/8/17(水) 15:19 発言
【27921】Re:ファイルを別名保存した後、ファイル... りん 05/8/24(水) 12:31 発言

53828 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free