Excel（エクセル）活用コミュのコンピュータ名をマクロで取得しセルに表示させる方法について

ログインして参加する

コンピュータ名をマクロで取得しセルに表示させる方法について

mixiユーザー 2009年03月15日 15:18

かなり初歩的な事ですが教えてください

エクセルのマクロを使って【コンピュータ名】を取得し
シート１のA1に取得した情報を表示したいのですが、
どのようなマクロを組めばよいでしょうか？

メッセージボックスの場合があったので少し変えてみたのですが、
入力されてませんでした･･･。

よろしくお願いします。

─────────────────────────────
Sub test3()
Dim obj
Set obj = CreateObject("WScript.Network")
With obj
MsgBox .computername

Worksheets("sheet1").Cells(1, 1).Value = computername

End With
End Sub

─────────────────────────────

コメント(2)

最初
全て
最新の40件

1

[1] mixiユーザー 03月15日 15:42

「computername」ではなく「.computername」にすれば表示されるんじゃないでしょうか。

[2] mixiユーザー 03月15日 15:57

>やむさん
ありがとうございます。単純に”．”がなかっただけでしたね・・・。
行ったらできました。助かりました！

ログインすると、みんなのコメントがもっと見れるよ

最初
全て
最新の40件

1

mixiユーザー: ログインしてコメントしよう！

Excel（エクセル）活用更新情報

Excel（エクセル）活用のメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。

Excel（エクセル）活用

人気コミュニティランキング

困ったときには

関連ワード

mixiで趣味の話をしよう: 新規登録（無料）; ログイン

このページの上部へ