はじめまして、いつもお世話になっています。
エクセルマクロ初心者です。
エクセルマクロで、ファイル(データ入力.xls)を開いた時に他のファイル(data.xls)を開く記述をしました。
エクセルの「ウィンドウ」では両方ともファイルが開いている状態になっていますが、パソコン画面下部のタスクバー(ツールバー?)にデータ入力ファイルしか表示されません。
dataファイルも表示させたいのですが、表示は可能ですか?
ちなみに、エクセルを起動させてから初めてファイルを開くと表示させず、エクスプローラやエクセルが起動している状態でファイルを開くと表示されます。
どう記述すれば確実に表示されますか?
どなたかご教授下さい。よろしくお願いします。
エクセル2003です。
--------標準モジュール----------------
Public myFile
Public myPath As String
Public myYNO(121795) As String
Public myYAD(121795) As String
Public myNO As String
Public myAD As String
Public KenData As String
--------This Workbook-----------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
myPath = ActiveWorkbook.Path
myFile = ActiveWorkbook.Name
Workbooks.Open Filename:=myPath & "\data.xls"
i = 0
KenData = myPath & "\ken_all.txt"
Open KenData For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, myNO, myAD
myYNO(i) = myNO
myYAD(i) = myAD
Loop
Close #1
Workbooks(myFile).Activate
Sheets("menu").Select
Range("E2").Select
Application.ScreenUpdating = True
End Sub
No.3ベストアンサー
- 回答日時:
No1です。
前に MyExcelを付けてみてください。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
If myExcel.Workbooks("data.xls").Saved = False Then
myExcel.Workbooks("data.xls").Save
End If
myExcel.Workbooks("data.xls").Close
Application.ScreenUpdating = True
End Sub
No.2
- 回答日時:
これは、Windowsの設定です。
ツールバーを右ボタンクリック
プロパティ
タスクバーのデザイン
ここで
同様のタスクバーボタンをグループ化する。をOffにします。
ご教授どうもありがとうございます。
私も、その手でやってみましたが思うような結果は得られませんでした。
また機会がありましたら宜しくお願いします!
No.1
- 回答日時:
こんにちは。
Excel Applicationをもう一つ起動しないと表示されません。
目的は分かりませんが、以下のように変更してみてください。
--------標準モジュール----------------
Public myExcel'←追加
Public myFile
Public myPath As String
Public myYNO(121795) As String
Public myYAD(121795) As String
Public myNO As String
Public myAD As String
Public KenData As String
--------This Workbook-----------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
myPath = ActiveWorkbook.Path
myFile = ActiveWorkbook.Name
'Workbooks.Open Filename:=myPath & "\data.xls"
'↓
Set myExcel = CreateObject("excel.application")
myExcel.Workbooks.Open Filename:=myPath & "\data.xls"
myExcel.Visible = True
この回答への補足
ご教授ありがとうございます!
pkh4989のおっしゃるとおり実行させるとツールバー上に2つのファイルが表示されました。が、最後にデータ入力.xlsファイルを表示させておきたいのですがdata.xlsファイルが表示されたままになってしまいます。また、データファイルを閉じる際、下記の処理をさせているのですが※印の行でエラーが発生してしまします。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
※ If Workbooks("data.xls").Saved = False Then
Workbooks("data.xls").Save
End If
Workbooks("data.xls").Close
Application.ScreenUpdating = True
End Sub
マクロで処理したいことですが、簡単に説明しますと、データ入力ファイル内にあるシートにデータ(顧客情報)入力後、dataファイルにデータを書き込ませる。という作業です。
今の部分ですと、データファイルを開いた時、dataファイルを開いてからあるデータを読み込ませ、データファイルを表示させます。
その後は、データファイルのシートにデータ(顧客情報)を入力後、dataファイルにデータを書き込ませ保存します(今の場合マクロの記述はありませんが・・・)。
データファイルを閉じる際には、dataファイルは、保存状況を判断させてから(変更がある場合は上書き保存する)閉じます。
お忙しい中恐縮ですが、よろしければまたご教授願います!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
EXCELのSheetを自動更新できな...
-
日本語プログラミング「なでしこ」
-
error RC2104について
-
指定したもの以外の削除方法
-
タスクバーのファイル表示について
-
エクセルデータをweb上にアップ...
-
日付を指定しファイルを削除す...
-
VBA Bookの表示、非表示
-
Tera Termでのコマンド流し込み...
-
icaclsの読み方
-
xcopyバッチを管理者として実行...
-
Thunderbird 振り分けされなく...
-
コマンドの戻り値が「130」
-
元のフォルダに矢印キーで帰りたい
-
excel VBA 特定の文字列を含む...
-
FLEXlm Log fileを集計するソフト
-
OnTimeの取り消しについて
-
お気に入りフォルダの名前はど...
-
2010でShiftキーを使っても自動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
C#でCSVファイルをリストビュー...
-
error RC2104について
-
Smarty で なぜか 「index.tpl...
-
EXCELのSheetを自動更新できな...
-
指定したフォルダ直下のファイ...
-
VBA Bookの表示、非表示
-
fgetsのfはどういう意味でしょ...
-
vbaでDLL参照しているエクセル...
-
バッチファイルでフォルダとフ...
-
拡張子のアイコンを取得
-
隠されたファイル
-
リストボックスに表示されたフ...
-
フォルダ内検索
-
サクラエディタに使用できるvbs...
-
音をならしたい・・・
-
アンインストール中のファイル...
-
Thunderbird 振り分けされなく...
-
Tera Termでのコマンド流し込み...
-
フォルダのサムネイル画像
おすすめ情報