|
皆様こんばんは。初めて質問をさせて頂きます。
どなたかお教え頂けますと嬉しいです。
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
という様なソースでファイル名と保存先を指定して保存するという処理を
行いました。しかし、実行後保存したファイルを開いて見ると、初めに
読み込んだファイルそのものが開くだけで、マクロ等で処理をしたソートや色付けが反映されません。(保存する処理を除いた場合にはちゃんと反映されるのですが)私自身あまり経験が無い上、分かりにくい文章で大変恐縮ですが、よろしくお願い致します。
|
|