- ベストアンサー
フルパスを取得するにはどうすればいいですか
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- ファイル名のみを取得するには？
Sub 取得() MsgBox ActiveWorkbook.Name End Sub を実行すると 「エクセル.xls」 と取得されますが 拡張子を除いたファイル名だけを取得するにはどうすればいいでしょうか？ 「エクセル」だけを取得したいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAの覚え方・勉強の仕方
自分はVBAを覚える・勉強するために テキストファイルにサンプルコードを作って一つのフォルダに保存しています。 サンプルコードとは Sub ファイル名を取得する() MsgBox CurrentProject.Name End Sub をテキストに書いて保存して、ファイル名を 「Access_自身のファイル名を取得する.txt」にしています。 現在２００個くらい作りましたが、 管理ができなくなってきてしまいました。 というのも、同じようなサンプルコードを作ってしまったり、 フォルダ内検索してるのに欲しいコードがヒットしなかったりです。 みなさんはどのようにＶＢＡのお勉強をしているのでしょうか？ サンプルコードを作られている方は、どのように管理されてますか？ アクセスで「サンンプル管理システム」などを作って管理してるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで一番左の可視シート名を取得
エクセルVBAで一番左側にあるシート名を取得する場合、通常は Sub test01() MsgBox Sheets(1).Name End Sub で簡単にできますが、このSheets(1)が非表示になっている場合でもその名前が取得されるため、見た目での一番左側にあるシート名ではなくなってしまいます。 もちろん、非表示になっているシートを除外して Sub test02() Dim n As Integer For n = 1 To Sheets.Count If Sheets(n).Visible Then MsgBox Sheets(n).Name Exit For End If Next End Sub とすれば取得できるのはわかりますが、こんなまだるっこい方法以外に簡単に一番左の可視シート名を取得する方法はないでしょうか？ （＾∇＾）？ ご教示くださいませ。
- ベストアンサー
- その他MS Office製品
- ワード2000のＶＢＡについて
ワード２０００を使っています。 ＶＢＡで、ダイアログボックスを開き、指定したファイルのファイル名をフルパスで取得したいのですが、下記のコードでは、ファイル名しか取得できません。 どのようにしたら、フルパスを取得できるのでしょうか？ たびたびすみませんが、誰か教えてください。 Dim Name With Dialogs(wdDialogFileOpen) If .Display = -1 Then Name = .Name End If End With MsgBox ("ファイル名は" & Name & "です。")
- ベストアンサー
- オフィス系ソフト
- 自身のコントロール名を取得するコード エクセル
シート上のアクティブエックスコントロールのコマンドボタンで、 自身のコントロール名を取得するコードを押してください。 Private Sub CommandButton1_Click() MsgBox Me.ActionControl.Name End Sub だと、エラーになってしまいます。 「CommandButton1」を返したいです
- ベストアンサー
- オフィス系ソフト
- computerNameを取得したい
UserNameではなく、computerNameを取得したい エクセルで複数人でファイルを開いてる場合、 コンピューター名を取得したいのですが Sub test1() Dim v As Variant v = ActiveWorkbook.UserStatus Debug.Print v(1, 1) End Sub これをやると、UserNameが取得されます。 UserStatusの中には、computerNameは格納されないのでしょうか？ Sub test() Debug.Print Environ("computerName") End Sub で、自身のコンピューター名は取得できるのですが 複数ファイルを開いているときのみんなのコンピューター名を取得する方法を教えてください。
- 締切済み
- オフィス系ソフト
- 全てのサブフォーム名を取得したい
オフィス２００７です。 Sub test() Dim obj As AccessObject For Each obj In CurrentProject.AllForms Debug.Print obj.Name Next End Sub --------------------------------- 上記のコードでデータベースのすべてのフォーム名は取得できますが フォーム１に乗っかっている複数のサブフォームを取得するにはどうすればいいのでしょうか？ サブフォームに独自の名前を付けて、IFステートメントを使うしかないですか？
- ベストアンサー
- オフィス系ソフト
- 定数にFullNameは使えないのですか？
アクセスで、 Sub aaa() Const sPath As String = CurrentProject.FullName MsgBox sPath End Sub をすると、「定数式が必要です。」問われるのですが、上記のように定数に自身のfaiある名を入れたいのですが、無理なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 他のファイルからリンクしてるテーブルリンクのパスを
アクセスです。 Sub Sample() Debug.Print CurrentDb.TableDefs("T_TEST").Connect End Sub このコードでアクセスの他のファイルからリンクしてるテーブルリンクのパスを取得できますが VBAでパスを変更するにはどうすれば良いでしょうか？ 例えば ;DATABASE=C:\Users\\TEST1.accdb を ;DATABASE=C:\Users\\TEST2.accdb に変更するコードが知りたいです。
- ベストアンサー
- オフィス系ソフト
- UserNameを取得したい
エクセル（2003）で Sub test() MsgBox Application.UserName End Sub と同じような意味をアクセスでも行いたいのですが どうゆうコードを書けばいいのでしょうか？ 同じコードを貼り付けてみましたがだめでした。 なぜ同じオフィスなのにだめなのでしょう？ アドバイスをお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。