UserNameを取得したい

エクセル（2003）で

Sub test()
MsgBox Application.UserName
End Sub

と同じような意味をアクセスでも行いたいのですが
どうゆうコードを書けばいいのでしょうか？

同じコードを貼り付けてみましたがだめでした。
なぜ同じオフィスなのにだめなのでしょう？
アドバイスをお願い致します。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2008/10/24 10:45

#1のお礼に関して

そこまでやるなら
参考
Sub test()
Dim exapp As Object
Set exapp = CreateObject("Excel.Application")
MsgBox exapp.Application.UserName
End Sub
をアクセスモジュールに入れて、実行すると、’エクセルでの）ユーザー名が出てきました。
前もって、参照設定でエクセルオブジェクトを設定はします。
ーー
WEBには
Sub test03()
MsgBox "UserName = " & CreateObject("WScript.Network").UserName
End Sub
ガ載っていました。

この回答へのお礼

どちらとも試してみたらできました！
大変参考になりました。ご回答ありがとうございます。

お礼日時：2008/10/28 13:22

No.1 回答者： hallo-2007 回答日時： 2008/10/24 00:02

http://www.officetanaka.net/excel/vba/tips/tips9 …
からですが、以下の様なことでしょうか？

Sub Sample3()
Dim Users, buf As String, i As Long
Users = ActiveWorkbook.UserStatus
For i = 1 To UBound(Users)
buf = buf & Users(i, 1) & Chr(9) & Users(i, 2) & Chr(9) & Users(i, 3) & vbCrLf
Next i
MsgBox buf
End Sub

この回答への補足

すいません。
初歩的な質問だとは思いますが
「ActiveWorkbook」が「変数が定義されていません」とコンパイルエラーになったので「参照設定」の「Microsoft Excel 11.0 ObjectLibrary」にチェックを入れました。
そしたら今度は「Users = ActiveWorkbook.UserStatus」で
「実行時エラー91
オブジェクト変数またはwithブロック変数が設定されていません。」
と言うエラーになってしまいます。

どうすればいいのでしょうか？
再度ご回答いただけると幸いです。
よろしくお願い致します。

補足日時：2008/10/24 09:48