こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

エクセルマクロで、ファイル(データ入力.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

投稿日時 - 2007-09-07 16:48:11

QNo.3323936

すぐに回答ほしいです

質問者が選んだベストアンサー

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

投稿日時 - 2007-09-10 19:02:18

お礼

ありがとうございました!
エラーもなく動きました!!
また、機会がありましたらご教授願います!

投稿日時 - 2007-09-11 15:27:48

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

これは、Windowsの設定です。

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

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

投稿日時 - 2007-09-08 10:11:17

お礼

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

投稿日時 - 2007-09-10 08:59:24

ANo.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

投稿日時 - 2007-09-07 18:51:27

補足

ご教授ありがとうございます!
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ファイルは、保存状況を判断させてから(変更がある場合は上書き保存する)閉じます。

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

投稿日時 - 2007-09-10 15:19:34

あなたにオススメの質問