Aのシートにデータがあり、BのシートからAのデータを読み込み、エクセル形式で表示するVBAで組まれたエクセルがあります。
Bに読み込まれたエクセルだけを、デスクトップに保存したいのです。
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\gsoumu7.COMP\デスクトップ\最新ver\" & bkname & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
以前は動いていたのですが、しばらくぶりに動かしたら動かなくなってしまいました。
以前はOFFICE2000か2003で今は2007になっています。
大変困っています。どなたかお助けください。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
VBAを使うなら、2007とそれより前のバージョンのファイル形式の違いを知っておかないといけません。
ま、それはこれから勉強するとして。。。
引数FileFormatの値xlNormalをxlExcel8に変更する。
ActiveWorkbook.SaveAs _
Filename:="C:\Documents and Settings\gsoumu7.COMP\デスクトップ\最新ver\" & bkname & ".xls", _
FileFormat:=xlExcel8 ←●ここを修正
以上です。
この回答への補足
アドバイスのように変更してみましたが、うまく行きません。他にもバグがあるのだと思います。ありがとうございました。
もし、お時間があるようでしたら、ソースをご覧ください。
Private Sub Worksheet_activate()
Application.MoveAfterReturnDirection = xlDown
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A4").Select
End Sub
Private Sub fabao_Click()
initial_sub
ActiveWorkbook.Unprotect
Workbooks(shb).Worksheets(shs).Unprotect
Workbooks(kgb).Worksheets(kgs).Unprotect
Workbooks(sgb).Worksheets(sgs).Unprotect
Dim bkname As String
If Not Cells(4, 1).Value <> 0 Then
MsgBox ("There is no code.")
Exit Sub
Else
End If
bkname = Cells(4, 1).Value & " " & Cells(4, 2).Value
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' 保存先の選択・ C:\Documents and Settings\new\ラタ
'*********************************************************************************
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\gsoumu7.COMP\デスクトップ\最新ver\" & bkname & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'
No.2
- 回答日時:
回答1、myRangeです。
最初の質問では、上手く動かない、とあり、それがどういう状態を意味しているのか書いてありませんでした。
が、保存のコードが提示されてましたので、保存が上手くいかない、(エラーが出る)と判断しての回答をしました。
保存の部分は、当方の回答で上手くいきます。
それを踏まえて、、、、
今度もただ「上手くいかない」との文言と少々の追加コードだけですね。
なぜ、「上手くいかない」がどういう状態を指しているのか明確にしないのでしょうか。
追加コード部分は2007でも問題なく動作するものです。
但し、変数の値が正しければ、ですが。
しかし、2003では動作してたコードだということですからそこらはOKでしょう。
ということで、動かない原因はその他の部分にあると推測できます。
何れにしろ、問題を解決したいのであれば、
質問者のいう「上手くいかない」がどういう状態を指しているのか明確にしてください。
また、エラーが表示されるのならそのメッセージも必要です。
エラーダイアログには「デバック」というボタンがありますからそれをクリックすれば原因のコード部分に色が付きますので、それも提示してください。
そうすれば瞬く間に解決するでしょう。
ところで、なぜ、他にもあるであろうコードの中から、お礼のコード部分だで提示しのでしょうか。
そこに上手くいかない原因があると判断したからですよね。
序にそう考える理由も提示のこと。
以上です。
あなたのおっしゃる通りです。
質問の方法もさることながら、「教えて!goo」の使い方もわからず、回答欄にコメントしたり大変失礼しました。
月曜日にもう一度色々試してみます。
このエクセルが動かないと非常に困るので頑張ります。
ありがとうございました。
No.3
- 回答日時:
ソースを拝見しましたが何処も問題ないように見えます。
このソースならば、Officeのバージョンの違いも関係ないと思います。
手元のPCで Office2003 と Office2007で検証しました。
唯一怪しいところがあるとすれば、
Officeのバージョンが変わったとの事ですが、OSのバージョンが変わったのでは
無いでしょうか。
デスクトップのアドレスは、Vistaから変わっています。
"C:\Documents and Settings\gsoumu7.COMP\デスクトップ\最新ver\"
このアドレスは存在しますか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
ExcelのVBAコードについて教え...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
VB6のComboBox関連の書き方をVB...
-
HTML電卓で1文字消す方法
-
VLookup関数を使ってラベルに表...
-
access2003 クエリSQL文に...
-
Excel VBA素人です。VBAで図形...
-
pythonにてseleniumを使うも、...
-
ExcelVBAで「Shift_JIS(MS932)...
-
エクセルに見えない文字(JISX0...
-
レポートでグループレベルの変...
-
chatgptでつくってもらったコー...
-
JANコードとPOSコードは同じ?
-
ACCESSで、履歴事項を管理する...
-
1、Rstudioで回帰直線を求める...
-
videopadについて
-
VBAでファイルオープン後にコー...
-
CheckBoxのコントロール配列に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報