Excel VBA質問箱 IV

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

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


12458 / 13646 ツリー ←次へ | 前へ→

【10235】保存したファイルへのマクロ等の反映 雪だるま 04/1/14(水) 0:21 質問
【10237】Re:保存したファイルへのマクロ等の反映 kein 04/1/14(水) 0:26 回答
【10267】Re:保存したファイルへのマクロ等の反映 雪だるま 04/1/14(水) 23:27 お礼
【10279】Re:保存したファイルへのマクロ等の反映 kein 04/1/15(木) 13:58 発言
【10407】Re:保存したファイルへのマクロ等の反映 雪だるま 04/1/25(日) 1:49 お礼

【10235】保存したファイルへのマクロ等の反映
質問  雪だるま  - 04/1/14(水) 0:21 -

引用なし
パスワード
   皆様こんばんは。初めて質問をさせて頂きます。
どなたかお教え頂けますと嬉しいです。

My Documents内のあるファイルを
Workbooks.Open filename:="C:\My Documents\ファイル名"
で読み込み、ソートや条件に一致したセルへの色付け等を行った後、
SendKeys (" ")
filesavename = Application.GetSaveAsFilename(fileFilter:="excelファイル_  (*.xls), *.xls")
If filesavename <> False Then
  ActiveWorkbook.SaveAs filename:=filesavename
  MsgBox "保存を完了しました " & filesavename
End If
という様なソースでファイル名と保存先を指定して保存するという処理を
行いました。しかし、実行後保存したファイルを開いて見ると、初めに
読み込んだファイルそのものが開くだけで、マクロ等で処理をしたソートや色付けが反映されません。(保存する処理を除いた場合にはちゃんと反映されるのですが)私自身あまり経験が無い上、分かりにくい文章で大変恐縮ですが、よろしくお願い致します。

【10237】Re:保存したファイルへのマクロ等の反映
回答  kein  - 04/1/14(水) 0:26 -

引用なし
パスワード
   >ActiveWorkbook.SaveAs filename:=filesavename


ActiveWorkbook.Close True, filesavename

と、変更してみて下さい。

【10267】Re:保存したファイルへのマクロ等の反映
お礼  雪だるま  - 04/1/14(水) 23:27 -

引用なし
パスワード
   keinさんどうもありがとうございます。
早速試してみましたが、まだ上手くいきません。
読み込んだファイルにマクロで処理を行うだけだったらきちんと
反映されるのですが、保存する処理を加えてそれを開いてみると
1行目に設定した項目名やソートは反映されても、色付けやフォントサイズは
反映されていない状態になってしまいます。
もう少しいろいろ考えてみます。早速のご回答ありがとうございました。

【10279】Re:保存したファイルへのマクロ等の反映
発言  kein  - 04/1/15(木) 13:58 -

引用なし
パスワード
   >項目名やソートは反映されても、色付けやフォントサイズは
>反映されていない状態
そんな中途半端な現象が起きるとすれば、ブックかエクセルに障害が発生している、
としか考えられませんね。新規ブックにコピーするとか、アプリケーションの修復
をやってみたらどうでしょーか ?

【10407】Re:保存したファイルへのマクロ等の反映
お礼  雪だるま  - 04/1/25(日) 1:49 -

引用なし
パスワード
   >kein さん
遅くなって申し訳ございません。
無事解決致しました。
ありがとうございました。

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