こんにちは。
現在、Excelで簡単な集計表を作るためにVBAを使っています。
そしたら、自分のパソコンでは動くのですが、他のパソコンで実行したら動かないという現象が起きました。
ひっかかったのは下の文です。

Workbooks("Book1.xls").Close saveChanges:=False

"Book1.xls"を"Book1"に訂正したら使用できたのですが、今度は逆に、自分の所でエラーが出てしまいました。

どなたかご存知のかた教えてください。
環境はWIN_NT、Excel97です。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

あなたのパソコンと他のパソコンで、フォルダの表示オプション「登録されているファイルの拡張子は表示しない」が違っていることはありませんか?


以前にExcelのマクロでそんなことがあったように思います。
    • good
    • 0
この回答へのお礼

まさにその通りでした。
ありがとうございました。

お礼日時:2001/05/31 08:39

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q拡張子の表示方法

ドコモのSH700iで音楽を聴こうと、ミニSDカードへファイルをつくるまでは良かったのですが、VOICEのフォルダへドラックして拡張子を変更したいのですが、m4aの拡張子がはじめから表示されておらず、形式の変更ができずに困っています。
どなたか拡張子の表示方法をご存知の方、教えていただけませんか?

Aベストアンサー

自分のケータイはSDカード使えないのでやったことありませんが...
エクスプローラのメニューから「ツール」、「フォルダオプション」、表示タブ中の詳細設定を最下部までスクロールすると、「登録されている拡張子は表示しない」にチェックがついていると思います。そのチェックをはずせば拡張子の表示ができると思います。

QPERSONAL.XLSというBOOKが勝手に作成される(エクセル)

エクセルを起動すると、開いたファイルの外に、PERSONAL.XLSというBOOKが勝手に作成されます。何が原因なのでしょうか??直前にマクロ記録作業をしていました。作成されないようにするにはどうしたらよいのでしょうか??どなたか教えてください。

Aベストアンサー

「PERSONAL.XLS」でWEB紹介してみてください。沢山出てきて、
どういうときにできてなど解説がたくさんあります。
http://www.excel.studio-kazu.jp/tips/0011/
このコーナーの過去類似質問も出ています。
http://oshiete1.goo.ne.jp/qa1043592.html
http://www.relief.jp/itnote/archives/002060.php
この質問コーナーを利用するより余程手軽です。

Q拡張子の表示方法

お世話になります。
ファイルの拡張子の表示方法の問い合わせ。
通常のフォルダオプションからの方法では他のファイルは表示されたのですが、該当のファイルは
表示されません。
その他の方法はあるのでしょうか?
OS WIN7 64ビット Pro 他のデータが問い合わせ上、必要であれば表示します。連絡下さい。

よろしくお願いします。

Aベストアンサー

元々、拡張子がついていないファイルもあるので、そういうものは表示されません。

拡張子が表示されず、どのようなファイルか調べたいのなら「極窓」を使えばわかるものもあります。

http://www.55555.to/index.htm
こちからから極窓をダウンロードして調べてみてはいかがでしょう。
(VisualBasic6.0(SP6)ランタイムライブラリが必要です)

QExcel97を起動するとBook2と表示される

非常に困っています。知っている方がいらっしゃったら教えてください。
使用しているOSはWin98、アプリはExcel97です。
昨日までは普通に使っていたのですが今朝からデスクトップのショートカットからExcelを起動するとBook2とでて、ツールバーから罫線を引こうとすると強制終了がかかります。ちなみに既存ファイルも同じくツールバーで罫線を引くと強制終了がかかりました。
[スタートメニュー]-[プログラム]-[Excel97]で起動しても新規Book2とでます。回避策として、ツールバーのリセットをかけると既存のファイルの方でツールバーから罫線を引いてもは強制終了がかからなくなりましたが、新規Book2の方は相変わらず「セルの書式設定」から引く罫線は引けますが、ツールバーからは引くと強制終了がかかります
新規Book2と出るのもおかしな現象です。
新規Book2と出なくする方法とツールバーから罫線を引いても強制終了がかからなくなる方法をどなたか教えてください。
よろしくお願いします。

Aベストアンサー

こんにちわ。
確信はないのですが、そのフォルダの中ににbook1.xlsというエクセルファイルを作成して、再度エクセルを起動するとどうなるかやってみてもらえないですか?

※book1の中身はなんでもいいです。

Q拡張子の表示方法

現在フォルダにでてくるデータには名前だけで
拡張子がついてこないので、名前と拡張子がでるようにしたいのですが
どこで変更すればいいのでしょうか?

Aベストアンサー

「ツール」→「フォルダオプション」→「表示」→「登録されている拡張子は表示しない」のチェックを外してください。

Qエクセルでデータ.xlsから1行毎に元シート.xlsへコピーし1行毎に多数ファイルを作成したい。

現在、以下のような繰り返し作業をカット&ペーストで何度も行わないといけません。
手が疲れて困っています。
エクセルマクロで簡単にできる方法を教えてください。

以下の例のようにデータ.xlsは、一番上の行に元シート.xlsに差込む位置、
次の行から1行ごとのデータがあります。

データ.xls
A B C D E F
1 A2 A3 B3 C2 D2 D3 <- 元シート.xlsにコピーする位置
2 test 123 456 789 012 345
3 test2 456 789 012 345 678
4 test 456 123 789 012 345
...

元シート.xlsは固定文字や罫線等があります。

元シート.xls
A B C D
1 ------------------------------
2
3
4 abcdefg 9876543
5 ------------------------------

元シート.xlsに、データ.xlsの1行ごとのデータを、指定したセルに入れ、
A列の名前で多数のファイルを作成したいのです。
ただし、A列で同じファイル名がある時は、ファイル名の後に_2等を付けて保存したいのです。

以下のような多数のファイルを自動的に作成する方法を教えて下さい。
宜しくお願い致します。

test.xls
------------------------------
test 789 012
123 456 345
abcdefg 9876543
------------------------------

test2.xls
------------------------------
test2 012 345
456 789 678
abcdefg 9876543
------------------------------

test_2.xls
------------------------------
test2 789 012
456 123 345
abcdefg 9876543
------------------------------
...

現在、以下のような繰り返し作業をカット&ペーストで何度も行わないといけません。
手が疲れて困っています。
エクセルマクロで簡単にできる方法を教えてください。

以下の例のようにデータ.xlsは、一番上の行に元シート.xlsに差込む位置、
次の行から1行ごとのデータがあります。

データ.xls
A B C D E F
1 A2 A3 B3 C2 D2 D3 <- 元シート.xlsにコピーする位置
2 test 123 456 789 012 345
3 test2 456 789 012 345 678
4 test 456 123 789 012 345
...

元シート...続きを読む

Aベストアンサー

丸投げに当るので、原型のみです。
上の例のtest_2.xlsのA1セルはtestが正しいと解釈して作成しています。
その他不明な部分は適当に仮定しています。(原型なので問題ないでしょう。)

・データの整合性等のチェックは一切省いていますので、実際の使用では各種のチェックを入れておかないと即エラーになります。(データが想定と違う場合)
・変数の宣言は省略して名前のみにしてありますが、実際はタイプを指定しておいたほうが良いでしょう。
・元シート.xlsおよび作成されるファイルは同じフォルダにあるものとしています。
・データ.xlsからのコピーはコピーメソッドで行っていますので、書式などもそのままコピーされます。
 (もし式が入力されている場合は、参照がおかしくなることがあり得ます)
・元データのデータ有無に関わらず、データシートのデータを上書きするようにしています。

データ.xlsがアクティブな状態で実行されるものと仮定しています。
(シート名、ブック名などは仮設定です)
適宜、修正してご使用ください。

Sub test()
Dim dst_name, mbk_name, mst_name, bk_name, b_name
Dim dst, mbk, mst
Dim ad, p, i, j

p = ThisWorkbook.Path & "\"  '// 対象となるフォルダのパス+"\"
dst_name = "データシート"    '// 対象データのあるデータ.xlsのシート名
mbk_name = "元シート.xls"    '// 元シート.xlsのファイル名
mst_name = "元シート"      '// 元シート.xlsの対象とすべきシート名

Set dst = Sheets(dst_name)
For i = 2 To dst.Cells(dst.Rows.Count, 1).End(xlUp).Row

'// 作成するファイル名をチェック
 b_name = dst.Cells(i, 1)
 If b_name <> "" Then
  j = 1
  bk_name = p & b_name & ".xls"
  While Dir(bk_name) <> ""
   j = j + 1
   bk_name = p & b_name & "_" & Format(j, "#") & ".xls"
  Wend

'// データをコピー、保存
  Workbooks.Open p & mbk_name
  Set mbk = ActiveWorkbook
  Set mst = mbk.Sheets(mst_name)
  For j = 1 To dst.Cells(i, dst.Columns.Count).End(xlToLeft).Column
   dst.Cells(i, j).Copy (mst.Range(dst.Cells(1, j).Text))
  Next j
  mbk.SaveAs (bk_name)
  mbk.Close
 End If
Next i
End Sub

丸投げに当るので、原型のみです。
上の例のtest_2.xlsのA1セルはtestが正しいと解釈して作成しています。
その他不明な部分は適当に仮定しています。(原型なので問題ないでしょう。)

・データの整合性等のチェックは一切省いていますので、実際の使用では各種のチェックを入れておかないと即エラーになります。(データが想定と違う場合)
・変数の宣言は省略して名前のみにしてありますが、実際はタイプを指定しておいたほうが良いでしょう。
・元シート.xlsおよび作成されるファイルは同じフォルダに...続きを読む

Q拡張子の表示方法

ファイルの拡張子を常時表示させる方法を教えてください。

Windows Visataを使用しています。
現在は、ファイルを右クリック→プロパティ→全般タブのファイルの種類で確認しています。

Aベストアンサー

1.エクスプローラを開いて
2.キーボードの「Altキー」を押し
3.ツール>フォルダオプション>表示
4.「登録されている拡張子は表示しない」のチェックを外す
5.「OK」で閉じる

QPrivate Sub Workbook_BeforeSaveについて

エクセル2000です。
腑に落ちない現象が起きているので質問させてください。
Sheet1にテキストボックス(OLEオブジェクトのTextboxではありません)とボタンが貼ってあり、Visble=Falseで非表示にしています。それを保存する際には表示させたいので、BeforeSaveイベントで

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.TextBoxes("テキスト").Visible = True
Sheet1.Buttons("ボタン").Visible = True
MsgBox "保存されちゃった!"
End Sub

と書いてみました。
手動で保存する場合には正しく、テクストボックスやボタンは正しく表示されます。もちろんMsgboxも出ます。

ところが、標準モジュールに書いた以下のコード、

Sub 保存()
ActiveWorkbook.Save
End Sub

を走らせてみても、"保存されちゃった!"と、Msgboxは出ますが、肝心のテクストボックスやボタンが表示されません。
試行錯誤の結果、
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Shapes("テキスト").Visible = True
Sheet1.Shapes("ボタン").Visible = True
MsgBox "保存されちゃった!"
End Sub

と書くと、標準モジュールから、ActiveWorkbook.Saveでも表示されることがわかりました。
どうしてでしょうか?

エクセル2000です。
腑に落ちない現象が起きているので質問させてください。
Sheet1にテキストボックス(OLEオブジェクトのTextboxではありません)とボタンが貼ってあり、Visble=Falseで非表示にしています。それを保存する際には表示させたいので、BeforeSaveイベントで

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.TextBoxes("テキスト").Visible = True
Sheet1.Buttons("ボタン").Visible = True
MsgBox "保存されちゃった!"
End Sub

と...続きを読む

Aベストアンサー

>を走らせてみても、"保存されちゃった!"と、Msgboxは出ますが、肝心のテクストボックスやボタンが表示されません。

ユーザー関数を抜けて「シートが待ち状態になるまで」は、シート上の子コントロールのVisibleプロパティの変化は反映されません。

ところが「セーブしちゃうと、Visibleプロパティが変化したのを忘れてしまう」ので「Sub 保存()を抜け、Visibleプロパティの変化が反映されるタイミング」には、もう「Visibleプロパティが変化したのを忘れている」のです。

つまり、Sub 保存()を抜けるまで、Visibleプロパティを変化させても反映されません。

しかし、ShapesのVisibleプロパティは「見た目だけを即座に画面に反映する」ので、Visibleプロパティを変更した瞬間に画面に反映されます(但し、反映されるのは「見た目だけ」なので、そのコントロールがクリック可能とは限りません)

Q拡張子CR2の表示方法を教えて下さい。

拡張子がCR2となっている画像データをフォトショップCSで開こうとしてもエラーが出ます。
どうしたらよいのでしょうか。

Aベストアンサー

RAWはカメラ個々で違う拡張子のようですから、パソコンで言うように共通性は全然無い物だそうです。
何でそうなのか知りませんが、当初の何かの目的があったのでしょうね?

通常は付属の物で開けます。で、必要に応じてTIFF,JPEG変換します。

CSのバージョン確認と、プラグインがあるのか?確認してください。各カメラ別に入れ込む必要があります。

キャノンのどのバージョンのビューアーかしりませんが、キャノンユーザーであることと、ビューアー次第ではDPPがダウンロードできます。

この手の質問ですがソフトのバージョンとかお使いのカメラとか関連ソフト全て記載された方が明確な回答来ますよ、、。

QWorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】

よろしくお願いします。
今あるブックにあるシートを別のブックにコピーしたいのですが、今考えているのは

ここから////////
'ブックを開く
Workbooks.Open コピー元のブックのパス
'シートをコピー
Worksheets.Item(コピーするシート名).Copy _
after:=Workbooks(コピー先のブック名).Sheets(1)

'ブックを閉じる
Application.DisplayAlerts = False
Workbooks.Item(コピー元のブック名)Close True
Application.DisplayAlerts = True
ここまで////

なのですが、コピーものとのブックが複数ある時、画面がチラチラしてしまいます。ブックをオープンさせずにシートを他ブックにコピーさせる方法ってないでしょうか。
ご存知の方がいらっしゃいましたら、ご教授お願いします。

Aベストアンサー

画面のチラツキを押さえたいだけなら、画面の更新をやめればいいだけじゃないでしょうか?

ブックを開く前に
Application.ScreenUpdating = False
ブック閉じてから
Application.ScreenUpdating = True


人気Q&Aランキング

おすすめ情報