VBA リストボックス複数列

chromeで動作完了したseleniumをiPad(safari)上でも自動テストしたいです。
どのようにすればいいか手探りの状態です。
どのようにセットアップすればよろしいでしょうか？
実現出来る手順やサイトなど、ご教授おねがいします。
現在、気になっているサイトは以下の通りです。
リンク内容

VBA
1Private Sub btn_FileOpen_Click()
2   Dim OpenFileName As Variant, Target As Variant
3   'カレントディレクトリを指定
4   ChDrive "C"
5   ChDir "C:\test"
6   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
7                                              MultiSelect:=True)
8   If IsArray(OpenFileName) Then
9       With Me.BookInput
10'リストボックスにファイル名を表示
11           For Each Target In OpenFileName
12               .AddItem Mid(Target,InstrRev(Target,"\")+1)
13               Pathname = Replace(Target, Filename, "")
14               .AddItem ""
15               .List(BookInput.ListCount - 1, 0) = Filename
16               .List(BookInput.ListCount - 1, 1) = Pathname
17           Next Target
18         
19       End with
20   Else
21       MsgBox "キャンセルされました"
22   End If
23End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1.AddItem Mid(Target,InstrRev(Target,"\")+1)
2↓
3Filename = Mid(Target,InstrRev(Target,"\")+1)

投稿2018/06/26 05:40

ttyp03

総合スコア16998

退会済みユーザー

2018/06/26 05:47

ttyp03さん〉回答ありがとうございます Firename = Mid(Target,InstrRev(Target,"\")+1) を試した際に、 1列目がフルパス、2列目が空白になってしまいます。

ttyp03

2018/06/26 05:48

Fireになってますが・・・ Fileですね。

ttyp03

2018/06/26 06:46

こういう間違いを防ぐためにも、ソースコードの先頭で、 Option Explicit を宣言することをお勧めします。

退会済みユーザー

2018/06/26 07:21

ttyp03さん〉回答ありがとうございますコメントの方のコードを間違えてました。 Option Explicitは先頭に一応付けてますが、上手くいきません。

ttyp03

2018/06/26 08:00

For Each のところが次のようになればいいだけなんですけど。 For Each Target In OpenFileName Filename = Mid(Target,InstrRev(Target,"\")+1) Pathname = Replace(Target, Filename, "") .AddItem "" .List(BookInput.ListCount - 1, 0) = Filename .List(BookInput.ListCount - 1, 1) = Pathname Next Target Dirの行を置き換える。前回の質問では、そういった意図で回答しました。

退会済みユーザー

2018/06/26 09:44

ttyp03さん〉回答ありがとうございます確かに前回の質問ですとその処理でエラーは解決できましたが、今回の質問の１つのリストボックスを複数列で１列目をファイル名、２列目をフルパスで表示する方法での回答とは違っていると思うのですが。

ttyp03

2018/06/26 11:08

2列目がフルパス名ってことですか。見落としてました。 Targetをそのまま使えばよいのでは。 Pathname = Target

退会済みユーザー

2018/06/27 00:49

ttyp03さん〉回答ありがとうございます試してみたのですが、リストボックスの１列目をファイル名だけ、２列目をフルパスにしたいのですが上手くいきませんでした。

ttyp03

2018/06/27 00:50

どう上手くいかないのか書いてください。

退会済みユーザー

2018/06/27 00:53

ttyp03さん〉１列目にフルパス２列目もフルパスがリストボックスに表示されてしまいます。２列目は良いのですが１列目にファイル名だけを表示させたいのですが

ttyp03

2018/06/27 00:57

以下の行にブレークポイントを置いて、ステップ実行後のFilenameの値を見てみてください。 Filename = Mid(Target,InstrRev(Target,"\")+1) また以下の行にブレークポイントを置いて、Filenameの値を見てください。 .List(BookInput.ListCount - 1, 0) = Filename どちらもファイル名になっていないとおかしいですが、どこでダメになっているのか確認を。

退会済みユーザー

2018/06/27 01:09

ttyp03さん〉デバッグした結果 Filename = Mid(Target,InstrRev(Target,"\")+1) のFilenameの値がフルパス+ファイル名になっており .List(BookInput.ListCount - 1, 0) = Filename のFilenameの値もフルパス+ファイル名になっていました。結果どちらもフルパス+ファイル名になっていることがわかりました。

ttyp03

2018/06/27 01:11

では、Targetの値に問題がありそうなので、どうなっているか確認してください。

退会済みユーザー

2018/06/27 01:19 編集

ttyp03さん〉質問した際に下記のカレントディレクトリを指定してるコードが質問した時のコードに抜けていました。 CreateObject(¨WScrpt.Shell¨).CurrentDirectory = ¨¥¥◯◯¥△△～¨ この質問での１列目にフルパス+ファイル名が出てきてしまう現象と関係ありますか？

退会済みユーザー

2018/06/27 01:18

ttyp03さん〉 TargetもFilenameと同じ値でした

ttyp03

2018/06/27 01:21

イミディエイトウィンドウでTargetに入っている値を使って次のようにするとファイル名取得できますか？ ?Mid("Targetの値",InstrRev("Targetの値","\")+1)

退会済みユーザー

2018/06/27 01:56

ttyp03さん〉試してみたのですがフルパス+ファイルが取得されちゃいました。

ttyp03

2018/06/27 01:59

Targetにはきちんとフルパス名が入っていて、パスの区切りは\マークですよね？ Mid関数の引数の\マークが全角になっているとかないでしょうか？少なくともこちらでは問題なくファイル名が取得できているので何かミスしていると思います。回答したコードをコピペしてますよね？自分で打ち込んだりしてないですよね？

退会済みユーザー

2018/06/27 02:51

ttyp03さん〉すみません。パスの区切りが ¥¥◯◯¥△△～ \ではなく¥になっていますこれは関係ありますか？

退会済みユーザー

2018/06/27 03:06

ttyp03さん〉 Filename = Mid(Target,InstrRev(Target,"\")+1) から Filename = Mid(Target,InstrRev(Target,"¥")+1) に変えて１列目にファイル名を表示することができました。

ttyp03

2018/06/27 03:08

？何が変わったんですか？

退会済みユーザー

2018/06/27 03:36

バックスラッシュから¥に変えましたパスの区切りがバックスラッシュではなく¥でした。

ttyp03

2018/06/27 04:02

どこでバックスラッシュが入ったんでしょうか・・・このページ内でも全て\マークで表示されていたのでそうだと思っていたのですが。まあ何にしても解決してよかったです。

ExcelVBAer

2018/06/27 04:17

OSがMacとか？

ttyp03

2018/06/27 04:19

Mac使ったことないですけど、このページからのコピペでもそうなるんですかね？謎。

退会済みユーザー

2018/06/27 05:01

osはwindows7です回答ありがとうございました

ExcelVBAer

2018/06/27 07:27

こちらもWin7なんですが、再現してませんね。。。 \ エンマーク / バックスラッシュ

ttyp03

2018/06/27 07:42

過去の誰かの回答でバックスラッシュが混入しているのかと思って遡ってみましたがそれらしき痕跡はなし。ちなみにバックスラッシュって日本語環境では￥マークと同一です。（キーボードの「ろ」のキーを押しても入力されるのは「\」）質問者さんが「バックスラッシュから¥に変えました」と言っているくらいですから、表示上バックスラッシュが表示されている、つまり全角のバックスラッシュ「＼」が入っていたなんてことはないでしょうか。いやしかしこれ入力するのも面倒なんで違うか。やはり謎。

退会済みユーザー

2018/06/27 08:48

ちなみにteratailはAndroidスマホで見てます関係あるかわかりませんが

行動規範の内容に同意します