>目的のファイルは、ローカルサーバーにあり、そのファイルを開くと、
>IEブラウザのタイトル部分にアドレスが表示される。
>が、タイトル部分にアドレスを表示させたくない。

データを読み込み後、少し強引ですがタイトルを書き換えてみては？
.Document.Title = "タイトルを勝手にセット"
みたいな感じで、好きなタイトルに変えるとか。
※戻る、進むを使われると ダメですが、

Sub ie_test_title書き換え() 'IEテスト、読み込み後にタイトルを書き換える

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True     '可視、Trueで見えるようにします。
   
'処理したいページを表示します。
    objIE.Navigate "http://www.google.co.jp/"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents '重いので嫌いな人居るけど。
    Wend
   
    'google検索項目(name=q)にセットする。
    objIE.Document.getElementsByName("q")(0).Value = "三流君"

'タイトルを勝手に書き換える・・・いいのかなぁ(ぉぃぉぃ)
objIE.Document.Title = "タイトルを勝手にセット"

End Sub

こんな感じで

書き換わると思います。

何かの参考となれば うれしいです。(戻る の 対応は、わからなかったけど、、、)

んっ？もしかして アドレスバーのこと？これも同時にセットしないとマズイかぁ。
.AddressBar = False  'アドレスバーを非表示に http://ie.vba-ken3.jp/Property/AddressBar/

まぁ、イロイロなバーがあるので、試行錯誤で= False してください。
AddressBar --- アドレスバー http://ie.vba-ken3.jp/Property/AddressBar/
MenuBar --- メニューバー http://ie.vba-ken3.jp/Property/MenuBar/
StatusBar --- ステータスバー http://ie.vba-ken3.jp/Property/StatusBar/
ToolBar --- ツールバー http://ie.vba-ken3.jp/Property/ToolBar/

VB API ウインドウ最小化 で検索すると、CloseWindowが見つかります。
で、その関数を呼ぶだけでOKかなぁ。。。
※単純に新規にCreateObjectで起動したIEの.hWndの値を渡しただけです。

Option Explicit

'標準モジュール 頭で忘れずに 使用するAPIの定義を入れてね。
Public Declare Function CloseWindow Lib "USER32" (ByVal hWnd&) As Long

Sub ie_test() 'IEテスト 起動後に最小化したい。

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True     '可視、Trueで見えるようにします。
   
'巡回中は最小化したい？そんな時は、
    Dim Ret As Long
    Ret = CloseWindow(objIE.hWnd) 'APIに起動したIEのウインドウハンドルを渡す
    '↑単純に.hWndの値を渡しただけです。
   
'処理したいページを表示します。
    objIE.Navigate "http://www.google.co.jp/"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents '重いので嫌いな人居るけど。
    Wend
   
    'google検索項目(name=q)にセットする。
    objIE.Document.getElementsByName("q")(0).Value = "三流君"

'巡回が終了したら元に戻したいのが人情だけど、今回は最小化のテストなのでそのまま放置

End Sub

無事に最小化されることを願いつつ、失礼します。　三流プログラマー Ken3

PS.ShowWindow の 方がよかったかも...

指定されたウィンドウの表示状態を設定します。

BOOL ShowWindow(
    HWND hWnd,     // ウィンドウハンドル
    int  nCmdShow  // 表示状態
);

値 意味
0 (SW_HIDE) ウィンドウを非表示にして、他のウィンドウをアクティブにします。

1 (SW_SHOWNORMAL) ウィンドウをアクティブにして表示します。ウィンドウが最小化または最大化されている場合は、ウィンドウの位置とサイズを元に戻します。アプリケーションは、最初にウィンドウを表示させるときにこのフラグを指定するべきです。

2 (SW_SHOWMINIMIZED) ウィンドウをアクティブにして、最小化されたウィンドウとして表示します。

3 (SW_SHOWMAXIMIZED, SW_MAXIMIZE) ウィンドウをアクティブにして、最大化されたウィンドウとして表示します。

4 (SW_SHOWNOACTIVATE) ウィンドウをアクティブにはせずに表示します。

5 (SW_SHOW) ウィンドウをアクティブにして、現在の位置とサイズで表示します。

イントラネットなどで、サーバーに裸のxlsファイルが置いてあり、ブラウザで(IEで)そのファイルが開かれている、 そのアクティブなセルからデータを取得したい、そんな処理です。

まず、 http://h22-jun.top1-12.info/2010-06-28.xls テストファイル を 探してみたいと思います。

Sub ddd() ' http://h22-jun.top1-12.info/2010-06-28.xls を 見つけるテスト
'CreateObject("Shell.Application") で
'通常のフォルダー表示ファイルエクスプローラーとIE(インターネットエクスプローラー)
'を.FullNameで区別する

    Dim objShell  As Object
    Dim objIE     As Object
    Dim n         As Integer
   
    'これで、エクスプローラーのウインドウを取得する
    Set objShell = CreateObject("Shell.Application")
      
    '後ろから消してく。頭から、For n=0 To objShell.Windows.Count - 1 のループでもいいけど
    '.Windowsでエクスプローラーとインターネットエクスプローラーにさわれる
    For n = objShell.Windows.Count To 1 Step -1 'MAXから-1ひいてく感じで後ろからチェック
        Set objIE = objShell.Windows(n - 1) 'n番目のウインドウを代入 配列が0からなので-1補正
        Debug.Print n
        Debug.Print ".FullName " & objIE.FullName
        Debug.Print ".locationURL " & objIE.locationURL
       
       '.FullNameで普通のファイルエクスプローラーとIE(インターネットエクスプローラー)を区別する
        If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then 'IEか？
            If Right(objIE.locationURL, 14) = "2010-06-28.xls" Then '次に.locationURでURLのチェック06-28.xlsか？
                Exit For '見つかったので、Exitでループ抜ける
            End If
        End If
    Next
    Set objShell = Nothing

    '↑上で、.locationURL 2010-06-28.xlsが見つからなかった 判断
    If n = 0 Then 'ループを最後まで回ってしまった=見つからなかった n=0で判断
        MsgBox "2010-06-28.xls が 見つかりません"
        Exit Sub 'テスト関数を抜ける・・・
    End If
   
    '見つかったので、IE上のExcelファイルを操作する(値を取り出す)
    Debug.Print ".Name " & objIE.Name

End Sub

単純に、objIE.FullName で IEか普通のファイルエクスプローラーか判断して、
次に、objIE.locationURL で XXXXXX.xls を判断しただけです。

試行錯誤の失敗動画 : http://www.youtube.com/watch?v=AIkRXCjn5Go

↑動画の中でLeftとやっているけど、If Right(objIE.locationURL, 4) = ".xls" Then  ですね。Leftは左からなので、拡張子.xlsを判断するなら、Rightから4文字取らないと・・・

objie.document.Sheets("DATA").cells(7,3)
で、IE上のデータを取得できたのですが、
.ActiveCell が 効かなかったです。

証拠の失敗動画 と ウォッチ式で止めて探る方法
いつもの操作動画 : http://www.youtube.com/watch?v=VZU4alVQdhw

少し続きを調べてみます。。。

少々(しばらく)お待ちを。 三流プログラマー Ken3

続きや全体の流れは http://d.hatena.ne.jp/ken3memo/20100628/ を見てください。

エクセルのシート上にMicrosoft Web Browserコントロールを配置する
そんなテストをExcel2003/Excel2010でやってみました。

Excel2003 シートにWebBrowserコントロールを貼る

Excel2003でシートにWebBrowserコントロールを貼るには、
表示 －－－ ツールバー －－－ コントロールツールボックス
で表示させたコントロールツールボックスから、
コントロールの選択でMicrosoft Web Browserコントロールを貼りテストしてみた、
そんな操作動画です。
http://www.youtube.com/watch?v=uVWh_W0bXOM

※なぜか、テスト操作中・プリンターが起動していたのが気になりますが・・・
イベントなど、テスト用のコードが書きやすいので、テストで使ってみてください。
エクセルでIE操作の参考となれば、幸いです。
静止画で操作の流れを見るには http://d.hatena.ne.jp/ken3memo/20100618/1276837999 をチェックしてください。

Excel2010 シートにWebBrowserコントロールを貼る

Excel2010でシートにWebBrowserコントロールを貼るには、

初期状態、準備として、
Excel2010 開発のリボンを表示させてから、シートにWebBrowserコントロールを貼る。
まず、ファイルからオプションを選択して、リボンのユーザー設定から開発のリボンを表示させます。
リボンのユーザー設定、開発にチェックを入れる
次に、挿入 －－－ コントロールの挿入
で表示させたコントロール一覧から
ActiveXコントロールの右下にある コントロールの選択を押してコントロールを選択します。
選択するコントロールは、Microsoft Web Browserコントロールです。
位置を選択すると無事に貼り付けられると思います。

下記、コントロールを貼り付けてテストしてみた、そんな動画です。
http://www.youtube.com/watch?v=SS2urOwJBl8

7:30 ～ デバックでエクセルごと落ちた失敗動画。シートにActiveXコントロールとして貼ると、不安定だったり。※特にAccess(Access2003/2007)のユーザーフォームに貼ると不安定だったり。Access2010ではテストしてませんが。

イベントなど、テスト用のコードが書きやすいので、テストで使ってみてください。
エクセルでIE操作の参考となれば、幸いです。

静止画で操作の流れを見るには http://d.hatena.ne.jp/ken3memo/20100618/1276837999 をチェックしてください。

人力検索の質問 http://q.hatena.ne.jp/1272265167 の回答作りで、
VBAでIE操作時のじゃまな JavaScriptの promptとalert() を消したかったので、ニセのニセのpromptとalert() を 挿入する。
>>
function prompt() { return ('固定で返したい文字');}
function alert() {  return ;}
<<
↑を入れる。そんなセコイ方法・方針で行ってみました。
実験の頭からの流れは http://d.hatena.ne.jp/ken3memo/20100428 の記事を読んでください。

<h3>VBA IE操作 ニセのpromptとalert() を 挿入する そんな実験</h3>
>>
動的に JavaScriptを読み込む
http://zombiebook.seesaa.net/article/22810383.html
■ 外部スクリプトではなく生成したコードを突っ込む場合
var ele = document.createElement("script");
ele.type = "text/javascript";
ele.text = "突っ込むコード";
document.body.appendChild(ele);
<<
を参考にして、
VBAから読み込んだページに
<b>ニセのpromptとalert()</b>をぶち込んでみます。

ページ読み込み後に、
>
'04/28 ページが読み込まれたので、ニセのjavascriptを挿入、毒を喰わせる？
'>動的に JavaScriptを読み込む http://zombiebook.seesaa.net/article/22810383.html を参考にしました
    Dim ele As Object  'エレメント(script)を1つ作りたいので。
    Set ele = objIE.document.createElement("SCRIPT")
   
    ele.Type = "text/javascript"
    Dim strJCODE As String   '挿入するコード(文字列)
    strJCODE = "function prompt() { return ('123固定で返したい文字');}"
    strJCODE = strJCODE & vbCrLf & "function alert() {  return ;}"
    ele.Text = strJCODE  'コードをセットする
   
    Call objIE.document.body.appendChild(ele)  '上↑で作った要素・エレメントをドキュメントに挿入する
'↑ここまでで、ニセjavascriptの関数作成終了、あとはいつものように処理すると
<
↑みたいな感じで、ニセのjavascriptを組み込む(毒を喰わせられるので)
これを応用すれば、
javascript prompt alert で VBAに処理が返らない(帰ってみない)
を回避できるのでは？
>>
    strJCODE = "function prompt() { return ('123固定で返したい文字');}"
<<
ここの固定文字を OK固定やYES固定にすれば、自動操作時にうまくユーザープロンプト入力をかわせるのかなぁ....

<h4>無駄に迷っているテスト動画</h4>
http://www.youtube.com/watch?v=k6XIeMITqDg
[http://www.youtube.com/watch?v=k6XIeMITqDg:movie]
を見て笑ってください。

<h4>ソース全体</h4>
全体のソースは下記のような感じです。

Option Explicit

Sub ie_Test_Button()  'ボタンを押した先で javascript の prompt/alert が 走ったら、止まる...

    Dim objIE      As Object  'ＩＥオブジェクト参照用

    'IEを起動する
    Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
    objIE.Visible = True '見えるようにする(お約束)

    '.Navigate で 指定したURLを開く
    Dim strURL As String        'テストのHTML置き場
    strURL = "http://ken3-info.blog.ocn.ne.jp/objie/2010/04/0428_javascript.html" 'テストページ
   
    objIE.Navigate strURL  'テストページを開く

    '↓デバック用で少し待つ(※これは通常いらないです)
    Application.Wait Time:=Now + TimeValue("00:00:02")  '画面遷移がはやいので2秒間止める

    'ページが表示される 完了を待つ
    While objIE.ReadyState <> 4 Or objIE.Busy = True 'READYSTATE_COMPLETE = 4
        DoEvents  '特に何もしないで.Busyの状態が変わるまで待つ
    Wend

'04/28 ページが読み込まれたので、ニセのjavascriptを挿入、毒を喰わせる？
'>動的に JavaScriptを読み込む http://zombiebook.seesaa.net/article/22810383.html を参考にしました
    Dim ele As Object  'エレメント(script)を1つ作りたいので。
    Set ele = objIE.document.createElement("SCRIPT")
   
    ele.Type = "text/javascript"
    Dim strJCODE As String   '挿入するコード(文字列)
    strJCODE = "function prompt() { return ('123固定で返したい文字');}"
    strJCODE = strJCODE & vbCrLf & "function alert() {  return ;}"
    ele.Text = strJCODE  'コードをセットする
   
    Call objIE.document.body.appendChild(ele)  '上↑で作った要素・エレメントをドキュメントに挿入する
'↑ここまでで、ニセjavascriptの関数作成終了、あとはいつものように処理すると
   
    '↓デバック用で少し待つ(※これは通常いらないです)
    Application.Wait Time:=Now + TimeValue("00:00:02")  '画面遷移がはやいので2秒間止める
   
    'htmlドキュメント allのから .tagsでButtonタグを抜き
    '.InnerTEXT値(ボタンの名称) が VBA解説 の オブジェクト を クリック(.Click)する
    Dim objButton As Object   'Buttonタグ格納用

    For Each objButton In objIE.document.all.tags("Button")  'Buttonのタグを.allから抜く
        If objButton.InnerTEXT = "ダウンロード" Then '.InnerTEXT値(ボタンの名称) で判断する
            objButton.Click  '見つけたButtonオブジェクト(ボタン)を.Clickクリックする
            Exit For  '用が済んだので(見つかったので)ループを抜ける
        End If
    Next
   
    '↑上でボタンが見つからなかった時のエラー処理が入っていない手抜きだけど、ご勘弁を

    Debug.Print Now & "に処理終了"

End Sub

実験の頭からの流れは http://d.hatena.ne.jp/ken3memo/20100428 の記事を読んでください。

かなり 三流な逃げ手 ですが、応用して使えたらいいなぁと思いつつ、失礼します。