ExcelVBAの使い方 ¥の使い方おしえてください。
現在、パス名取得に努めているのですが、最後がうまくいきません。
Dim MyObjFo As Object
Dim Myname As String
Set MyObjFo = CreateObject("Shell.Application") _
.BrowseForFolder(0, "フォルダを選択して下さい", 0, "C:\Documents and Settings\ユーザー名\My Documents\")
If MyObjFo Is Nothing Then Exit Sub
MsgBox MyObjFo.Items().Item().Path
MsgBox MyObjFo.Items.Item.Path
Myname = MyObjFo.Self.Path
For i = 1 To 7
ActiveSheet.Pictures.Insert( _
" " & Myname & " & " ¥ " & " & Cells(i, "A") & ".JPG").Select
上は途中までのそーすですが変数MynameとCells(i, "A") をつなぐ間に入る¥がうまく機能しなく
エクセルシート上に画像が張り付いていかないのでパス名の中の¥をうまくつないでフルパスにする方法を
教えてください。
お願いします。
No.2ベストアンサー
- 回答日時:
『¥の使い方』というより、変数と文字列の繋ぎ方ですね。
まずは簡略な例で確認したほうが良いですよ。
Sub sample()
Dim f As String
Dim s As String
f = "c:\mydocuments"
s = "abcde"
MsgBox f & "\" & s & ".jpg"
End Sub
こんな感じで、『 変数 & "文字列" & 変数 & "文字列" 』
みたく繋ぎます。
Sub test()
Dim MyObjFo As Object
Dim Myname As String
Dim fName As String
Dim i As Long
Set MyObjFo = CreateObject("Shell.Application") _
.BrowseForFolder(0, "フォルダを選択して下さい", 0)
If MyObjFo Is Nothing Then Exit Sub
Myname = MyObjFo.Self.Path & "\"
'MsgBox Myname
With ActiveSheet
For i = 1 To 7
fName = Myname & .Cells(i, "A").Value & ".JPG"
'MsgBox fName
If Len(Dir(fName)) > 0 Then
.Pictures.Insert fName
Else
MsgBox fName & "が見つかりません"
End If
Next
End With
Set myobj = Nothing
End Sub
回答ありがとうございます。大変感謝してます。
Myname = MyObjFo.Self.Path & "¥"
fName = Myname & .Cells(i, "A").Value & ".JPG"
つまりこの&の使い方がじゅうようだったんですね。
すごいです。ここまで長々と親切に教えてくれてありがとうございます。
納得できました。
If Len(Dir(fName)) > 0 Thenの使いかたもすばらしいです。
長さで判断に使うとは。
これでかなりぐっと便利になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBAでパスの¥マークについて
Access(アクセス)
-
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
-
4
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
7
この関数なんて読むのか教えてください。
Access(アクセス)
-
8
エクセルでマクロを作成してますが、バックスラッシュが入力出来ません。 設定方法等教えて頂けないでしょ
Excel(エクセル)
-
9
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
10
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
11
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
Setステートメントの使い方について
Visual Basic(VBA)
-
14
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
15
アクセスVBAのMe!と[ ]
Access(アクセス)
-
16
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
17
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
18
スクロールしてもボタンを常に表示させたい。Excel2002
Excel(エクセル)
-
19
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
20
エクセルで計算すると2.43E-19などと表示される。Eとは何ですか?
Windows Me・NT・2000
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
ExcelVBAの使い方 ¥の使い方...
-
【VB.NET】App.configにファイ...
-
outlook開けない
-
VBS パスに変数を入れたい
-
VBA★PDFをPDFアプリで印刷し...
-
エクセルVBAで一つ上の階層...
-
【VBA】複数のtxtファイルから...
-
アプリケーションのインストー...
-
VBAでパワーシェルを実行したい...
-
SaveAsの保存先について
-
xcopyコマンドの進行状況を表示...
-
【VBA】ExcelマクロでCSVファイ...
-
エクセルの二重起動をやめたい
-
A列に記載されているフォルダ...
-
fopenでのパス指定
-
EXCEL(VBA)で指定フォルダ内の...
-
C# MP4のタグ情報のサブタイト...
-
C#でのProcess.Startと変数path
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
エクセルVBAで一つ上の階層...
-
Excel 相対パス
-
【VB.NET】App.configにファイ...
-
xcopyコマンドの進行状況を表示...
-
【VBA】ExcelマクロでCSVファイ...
-
EXCEL(VBA)で指定フォルダ内の...
-
エクセルのマクロで特定フォル...
-
パスワード保護されたExcelファ...
-
ExcelVBAの使い方 ¥の使い方...
-
開いているファイルを削除し、...
-
SaveAsの保存先について
-
初心者powershellのPS1ファイル...
-
VBA★PDFをPDFアプリで印刷し...
-
fopenでのパス指定
-
【Excel VBA】Power Qurry のソ...
-
指定したフォルダ内の最新ファ...
-
A列に記載されているフォルダ...
-
ExcelのVBAで上書き保存を確...
おすすめ情報