タスクバーのファイル表示について

質問

はじめまして、いつもお世話になっています。
エクセルマクロ初心者です。

エクセルマクロで、ファイル（データ入力.xls）を開いた時に他のファイル（data.xls）を開く記述をしました。
エクセルの「ウィンドウ」では両方ともファイルが開いている状態になっていますが、パソコン画面下部のタスクバー（ツールバー？）にデータ入力ファイルしか表示されません。
dataファイルも表示させたいのですが、表示は可能ですか？
ちなみに、エクセルを起動させてから初めてファイルを開くと表示させず、エクスプローラやエクセルが起動している状態でファイルを開くと表示されます。
どう記述すれば確実に表示されますか？
どなたかご教授下さい。よろしくお願いします。
エクセル２００３です。

--------標準モジュール----------------
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

pkh4989 · ベストアンサー

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

chibita_papa

これは、Windowsの設定です。

ツールバーを右ボタンクリック
プロパティ
タスクバーのデザイン

ここで
同様のタスクバーボタンをグループ化する。をOffにします。

お礼

ご教授どうもありがとうございます。
私も、その手でやってみましたが思うような結果は得られませんでした。
また機会がありましたら宜しくお願いします！

回答No.1

pkh4989

こんにちは。

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のおっしゃるとおり実行させるとツールバー上に２つのファイルが表示されました。が、最後にデータ入力.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ファイルは、保存状況を判断させてから（変更がある場合は上書き保存する）閉じます。

お忙しい中恐縮ですが、よろしければまたご教授願います！！