Excel VBA質問箱 IV

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

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


53820 / 76732 ←次へ | 前へ→

【27720】Re:ファイルを別名保存した後、ファイル...
質問  にんは  - 05/8/17(水) 9:36 -

引用なし
パスワード
   りん さん、Endさん、おはようございます
遅くまでありがとうございました
りんさんのアドバイスを参考に、ちょっとコンパイルエラーになってしまったところを修正し、実行してみました。

>エラー回避のために、ファイルをいろいろチェックしてから保存する方法です。
>Sub Test()
>  Dim newbook As Workbook, wb As Workbook, ws As Worksheet
>  Dim Opath As String, Ofile As String

>  'コピー元xls
>  varxls = "C:A.xls"
>  Workbooks.Open Filename:=varxls

>  '
>  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
>これでどうでしょうか?
>再起動してから確認してみてください。

結果は、・・・だめでした。
また開こうとすると、(ダブルクリックです)
ヘッダには、保存した名前がでるんですけど
それっきり固まってしまいます。
名前を変えてやってみます。
どうぞ宜しくお願いします。
0 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 発言

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