Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11622 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15068】ファイルを開くたびに… まさくん 04/6/14(月) 21:51 質問[未読]
【15069】Re:ファイルを開くたびに… ちゃっぴ 04/6/14(月) 22:07 発言[未読]
【15070】Re:ファイルを開くたびに… まさくん 04/6/14(月) 22:14 お礼[未読]
【15071】Re:ファイルを開くたびに… ちゃっぴ 04/6/14(月) 22:20 発言[未読]
【15121】Re:ファイルを開くたびに… まさくん 04/6/16(水) 0:26 お礼[未読]
【15068】ファイルを開くたびに…
質問  まさくん  - 04/6/14(月) 21:51 -
引用なし
パスワード
   はじめまして。教えて下さい。

office2003にて、DBからデータを取得→シートに表示させる、というマクロを組んでみました。
処理中に、自PCのホスト名を取得したかったため、フォームに、
「UserForm」に「Winsock1コントロール」をはりつけ、Winsock1.LocalHostNameにて
取得するようにしました。
と、ここまでは良かったのですが、それ以降ファイルを開くたびに、
「このアプリケーションは安全でない可能性のあるActuviXコントロールを初期化し
ようとしています。このファイルの提供元が信頼できる場合は[OK]をクリックしま
す。コントロールは現在のワークスペースの設定で初期化されます。」
と、表示されます。
このメッセージを表示させないようにするにはどうしたら良いのでしょうか？
何か設定をせな駄目なんでしょうか？
当方、初心者ですので、どなたか易しく教えて下さい。
宜しくお願い致します。
【15069】Re:ファイルを開くたびに…
発言  ちゃっぴ  - 04/6/14(月) 22:07 -
引用なし
パスワード
   WinSockコントロールなんて大げさなもの使わなくても
ローカルホスト名は

　　Dim wshNetwork As Object

　　Set wshNetWork = CreateObject("WScript.Network")
　　MsgBox objNet.ComputerName

これで取得できます。

詳しくは、WSHのヘルプを参照してください。
http://www.asia.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsprocomputername.asp
【15070】Re:ファイルを開くたびに…
お礼  まさくん  - 04/6/14(月) 22:14 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>WinSockコントロールなんて大げさなもの使わなくても
>ローカルホスト名は
>
>　　Dim wshNetwork As Object
>
>　　Set wshNetWork = CreateObject("WScript.Network")
>　　MsgBox objNet.ComputerName
>
>これで取得できます。
>
>詳しくは、WSHのヘルプを参照してください。
>http://www.asia.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsprocomputername.asp


ホホホ…そうでしたか…ｆ(^^；)
本で調べたコントロールを使用する方法しかなくて…
早速、明日やってみます！
ありがとうございました！
【15071】Re:ファイルを開くたびに…
発言  ちゃっぴ  - 04/6/14(月) 22:20 -
引用なし
パスワード
   わかるとは思いますが･･･
タイプミスしてしまいました。
　
　　MsgBox wshNetWork.ComputerName

に修正して置いてください。
【15121】Re:ファイルを開くたびに…
お礼  まさくん  - 04/6/16(水) 0:26 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>わかるとは思いますが･･･
>タイプミスしてしまいました。
>　
>　　MsgBox wshNetWork.ComputerName
>
>に修正して置いてください。


できました！
ありがとうございました！
また何かありましたら
おねがいします！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11622 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free