Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/03/24(土) 05:57:47.30

参考までに

With New ObjectX
.Exec
End With
→End Withで解放される

With New ObjectY
.Exec
GoTo Line1
End With
Line1:
→解放されない(関数の最後で解放)

GoTo Line2
With New ObjectZ
Line2:
.Exec
End With
→生成されない(.Execで実行時エラー)

**デフォルトの名無しさん** · 2018/03/24(土) 06:08:07.14

>>486
仮にClass1で以下のプロパティが定義されているとすると
Public Property Get Self() As Class1
Set Self = Me
End Property

以下のWithで生成されたオブジェクトはEnd Withで解放されない
Dim obj As Class1
With New Class1
Set obj = .Self
End With

**デフォルトの名無しさん** · 2018/03/24(土) 06:24:23.25

>>488
同様にNotingを入れると？

**デフォルトの名無しさん** · 2018/03/24(土) 08:07:41.90

>>475
そういう場合は使わなきゃいいだけ
応用力ないの？

**デフォルトの名無しさん** · 2018/03/24(土) 08:16:33.84

>>490
そういうのは応用とは言わない
一貫性が無いと言う

**デフォルトの名無しさん** · 2018/03/24(土) 08:21:58.80

VBA Set Obj = Nothing は必要か
http://thom.hateblo.jp/entry/2015/12/20/135035

**デフォルトの名無しさん** · 2018/03/24(土) 08:41:38.11

>>484
これでしょ

**デフォルトの名無しさん** · 2018/03/24(土) 09:04:16.28

>>491
一貫性の話はコードの話
応用力はお前自身の話
まあそう言うことも理解できてないバカなのはわかった w

**デフォルトの名無しさん** · 2018/03/24(土) 09:33:19.46

俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく

**デフォルトの名無しさん** · 2018/03/24(土) 09:40:33.58

>>494
悔しくて草生やした時点でお前の負け

**デフォルトの名無しさん** · 2018/03/24(土) 10:14:46.87

>>480

Parentプロパティってのがあったような
https://oshiete.goo.ne.jp/qa/2463803.html

**デフォルトの名無しさん** · 2018/03/24(土) 10:19:01.04

>>489
何を勘違いしているのか知らんが、Nothingを入れても参照が残っている限り解放はされない

>>488のClass1の定義で、

Dim obj As Class1
Dim obj_ref As Class1

Set obj = New Class1

Set obj_ref = obj.Self

Set obj = Nothing
→「New Class1」で生成したオブジェクトは解放されない（参照が残っているから）

**デフォルトの名無しさん** · 2018/03/24(土) 10:33:33.02

>>486
未だにNothing代入の誤解が蔓延っているんだな
旧VBプログラマーの無知が作りだした因習が新参のマクロプログラマーに受け継がれるっていう
もはやウイルスの如き感染力

**デフォルトの名無しさん** · 2018/03/24(土) 10:43:35.46

>>496
反論できなくて悔しいね w

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:03.59

>>497
それはFormにあると言うだけで全てのオブジェクトにあるわけじゃない
>>480みたいにネストしてあれこれやりたいなら素直に変数にSetした方がいい

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:20.70

>>500
バカはしゃべるな

**デフォルトの名無しさん** · 2018/03/24(土) 11:44:41.58

「ネストしているときはWithを使えないからネストしないときもWithはやめよう」
　↑
これを「一貫性」と呼ぶのか？流石にそういう主張じゃないよな。

**デフォルトの名無しさん** · 2018/03/24(土) 11:51:46.46

ExcelがPythonをネイティブサポートしたら世界はどう変わるか。

**デフォルトの名無しさん** · 2018/03/24(土) 11:55:52.55

>>502
>>500 w

**デフォルトの名無しさん** · 2018/03/24(土) 12:03:27.93

応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ

**デフォルトの名無しさん** · 2018/03/24(土) 12:22:38.50

>>480の汎用的な解ができたよー

【標準モジュール】
Public Function ObjectWrapper(ByRef ObjectRef As Object, Optional ByRef ParentWrapper As ObjectWrapperClass = Nothing) As ObjectWrapperClass
　 Dim wrapper As ObjectWrapperClass
　 Set wrapper = New ObjectWrapperClass
　 Set wrapper.Ref = ObjectRef
　 Set wrapper.Parent = ParentWrapper
　 Set ObjectWrapper = wrapper
End Function

【クラスモジュール : ObjectWrapperClass】
Private m_ref As Object
Private m_parent As ObjectWrapperClass

Public Property Set Ref(ByRef ObjectRef As Object)
　 Set m_ref = ObjectRef
End Property
Public Property Get Ref() As Object
　 Set Ref = m_ref
End Property

Public Property Set Parent(ByRef ObjectWrapper As ObjectWrapperClass)
　 Set m_parent = ObjectWrapper
End Property
Public Property Get Parent() As ObjectWrapperClass
　 Set Parent = m_parent
End Property

Public Property Get Self() As Object
　 Set Self = Me
End Property

**デフォルトの名無しさん** · 2018/03/24(土) 12:24:31.16

>>507の使用例

With ObjectWrapper(CreateObject("Scripting.FileSystemObject"))
　 With ObjectWrapper(.Ref.GetFolder(ThisWorkbook.Path), .Self)
　　 For Each ff In .Ref.Files
　　　If LCase(.Parent.Ref.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　　 Next
　 End With
End With

**デフォルトの名無しさん** · 2018/03/24(土) 13:02:42.69

java臭いw

**デフォルトの名無しさん** · 2018/03/24(土) 15:59:40.14

1点質問です。

ODBC接続するマイクロソフトクエリ（xxxx.dqy)をエクセルVBA(EXCEL2010)から起動する際、
ユーザとパスワードを自動入力してログインするマクロを作成したいのですが、
どのように記載すればいいでしょうか。詳しい方、ご教示下さい。
宜しくお願い致します。

sub mac()

Workbooks.Open ("C:\TEMP\xxxx.dqy")
'/// ユーザ(abc)、パスワード(p1a#s%s)自動入力

end sub

**デフォルトの名無しさん** · 2018/03/24(土) 17:38:17.30

>>504
どっかのサイトからポトペタして貼り付けたのが動きませんけどって
阿鼻叫喚の地獄絵図

**デフォルトの名無しさん** · 2018/03/24(土) 17:56:47.42

>>511
それなら今と変わらなくね？

**デフォルトの名無しさん** · 2018/03/25(日) 00:20:48.30

勉強して会社エクセルに入れたいんだけどセキュリティ的にどうなのでしょうか？
管理者権限がなくてもできますか？

**デフォルトの名無しさん** · 2018/03/25(日) 00:27:54.20

>>513
セキュリティ的には完全にアウトだから入れたかったら会社の上司に相談すること

**デフォルトの名無しさん** · 2018/03/25(日) 00:43:47.76

>>513
今の時代にエクセルが入ってない職場ってどういうところなんか気になるな

**デフォルトの名無しさん** · 2018/03/25(日) 00:44:35.98

なにを入れるんだよｗ

**デフォルトの名無しさん** · 2018/03/25(日) 01:05:24.75

ヒキニートの妄想だろ

**デフォルトの名無しさん** · 2018/03/25(日) 01:44:51.57

日本は中小企業が大部分を占めるのでExcelの需要が大きいんだと思う。

**デフォルトの名無しさん** · 2018/03/25(日) 01:45:45.66

10年以上受け継がれてる見積もりシートとかあるわ。

**デフォルトの名無しさん** · 2018/03/25(日) 04:17:50.28

中小企業が大部分なのはどこの国でも同じなんだが

**デフォルトの名無しさん** · 2018/03/25(日) 04:57:24.72

>>520
雇用者数に対する中小企業割合は日本では8割、アメリカ、イギリス、ドイツなどで5割程度のようだが、これおそらく生産性に直結してると思う。
資本が集中していない分、日本は競争力が低い。
一方で、中小企業割合が大きいということは、一国一城の主となれる割合が大きいことでもあり、儲からないけど好きなことで飯が食えるという意味では良いことなのかもしれない。

**デフォルトの名無しさん** · 2018/03/25(日) 05:01:26.01

ちなみに欧米でも中小企業が8割を占める国があり、イタリアがそうらしいです。
イタリアは職人的な工芸製品のイメージがあり、製品本来の価値よりブランドイメージが先行している感じがする。
そこは見習うべき点かもしれない。
同じものを売るなら高く売ったほうが良いからね。

**デフォルトの名無しさん** · 2018/03/25(日) 05:04:38.97

イタリアのExcel割合を調べてくれたまえ。

**デフォルトの名無しさん** · 2018/03/25(日) 21:29:27.29

中小とか関係無いだろ。
大企業でExcel入ってない所なんて聞いたこと無いぞ。

**デフォルトの名無しさん** · 2018/03/25(日) 22:39:02.13

大企業はエクセルの他にTableauとかSAPとかSalesforceみたいなの入れてたりするやん
大抵の中小にはエクセルしかない

**デフォルトの名無しさん** · 2018/03/25(日) 23:08:52.28

>>525
入っててもExcel使ってるだろ。
それも、そういうのより有用にな。
お前が言ってるのはプラスアルファの部分で必須という点ではExcelの方が上だぞ。

**デフォルトの名無しさん** · 2018/03/25(日) 23:31:43.16

Excelのほかにはちゃんとしたデータベースが導入されていれば
事務部門には必要にして十分だろう

**デフォルトの名無しさん** · 2018/03/25(日) 23:34:10.07

Excelの最大の問題点は情報の共有。
日本の大企業がExcelに頼っているならそれが弱点かもしれない。

**デフォルトの名無しさん** · 2018/03/26(月) 00:27:14.12

>>528
働いたこともないニートが妄想で語るなよ

**デフォルトの名無しさん** · 2018/03/26(月) 11:51:23.00

情報の共有ってことだと社内データベースが不可欠だけど素人では運用するのが難しい。
このネックはなかなか解消できないのかもね。
開発ツールとかはただでいくらでも手に入るし運用も問題にならない。
ルールで導入できないとかそういうのは自業自得だから。

**デフォルトの名無しさん** · 2018/03/26(月) 12:00:07.22

>>528
Excelの共有機能を使えば万事解決やろ

**デフォルトの名無しさん** · 2018/03/26(月) 12:06:51.37

>>531
無駄だろな。
俺は階層ディレクトリにも疑問を持っているのだが、おそらく理解する人は少ないだろうなあ。
一番被害を被ってるはずのウェブ屋さんが「階層ディレクトリは素晴らしい」と言い張りそうな気がする。

**デフォルトの名無しさん** · 2018/03/26(月) 12:08:37.31

業務用のパッケージソフトってだいたい300万位がエントリーレベルなので、そうおいそれと買い換えられない。
ここもネックになってる。

**デフォルトの名無しさん** · 2018/03/26(月) 12:20:45.13

ただで手に入るSQLSever ExpressとVisual Studio Express で機能的には十分なんだけどね。
運用が難しいってだけじゃなくて、「ツールを導入するのが好きな人」の陰謀なんじゃないかと勘ぐっているw

**デフォルトの名無しさん** · 2018/03/26(月) 13:06:59.27

業務用ソフトってのはサポート込みなんだけど
どこの企業でも運良くパソコンオタクが入社して時間を持て余してるわけじゃないんで

データのバックアップから非常用の電源まで、まとめて面倒を見るのは大変だし、いちいち調べて対処するのは効率が悪い
ノウハウを持った会社からパッケージで買った方がずっとコストも安いし対応も早いし安心できる

**デフォルトの名無しさん** · 2018/03/26(月) 13:23:21.66

VBEのコードウインドウの背景色を濃いグレーに変えたのですが、プロシージャの区分線の色も濃いグレーのために背景と同化して見えなくなってしまいました
プロシージャの区分線の色を変更する方法ってありませんか？

**デフォルトの名無しさん** · 2018/03/26(月) 13:23:49.36

>>535
業務ソフトじゃなくてツールの話をしてるんだけど？
定型業務以外の、何か調べてレポートしたりとかマーケティング向けの調査とかそういうの。

**デフォルトの名無しさん** · 2018/03/26(月) 13:29:25.15

300万の製品を10年使われると年間30万、月2万5千円だろ。
だったら月2万5千円で最新バージョンが使い続けられるといいのだがな。
アップデートが途中で打ち切られるので未だにXPがあるんだよな。
XPで何でもできるならそれでもいいんだが、新しいソフトはXPサポートしないしな。
300万は微妙すぎる金額だよな。
まあ微妙だからこそ、その価格に集中するんだろうけど。

**デフォルトの名無しさん** · 2018/03/26(月) 13:31:09.84

代々受け継がれてるExcelのシートも結構あって、そこで問題になってるのが情報の共有なんだよな。

**デフォルトの名無しさん** · 2018/03/26(月) 13:56:24.07

小はともかく中規模の事業所はデータの整理も進んできてる
古いデータを必要な物からデータベースに落とし込んで再利用可能にしてる
それをやらないと競争に勝てないんで

**デフォルトの名無しさん** · 2018/03/26(月) 22:38:29.48

むしろ小規模ならクラウド上に乗っけて
GITとかで管理すればいいんじゃないの？

**デフォルトの名無しさん** · 2018/03/27(火) 00:06:28.13

REST APIをコールしたいんだがVBAだとどんな選択肢がある？
IEインスタンス使う方法以外で

**デフォルトの名無しさん** · 2018/03/27(火) 07:54:36.52

>>525
その辺のパッケージにマトモなBI作ってない企業は出力したデータをExcelで加工する仕事がある

**デフォルトの名無しさん** · 2018/03/27(火) 08:48:00.11

>>536
誰もわかんないですか？

**デフォルトの名無しさん** · 2018/03/27(火) 09:00:02.17

ID:OGHJWfFq の頭の中では…

なぜ私が質問したのにみんなスルーしてるの！
私が質問したら答えるのが当然でしょ！
答えるのが当然なのに答えないってことは、つまり知らないって事よね！？
　　↓output

>>544 誰もわかんないですか？

**デフォルトの名無しさん** · 2018/03/27(火) 09:52:14.28

>>542
RESTのことを知らないのであれだけど
httpリクエスト（getとかpost）する方法のこと？

**デフォルトの名無しさん** · 2018/03/27(火) 11:09:50.91

>>542
Application.WorksheetFunction.WebService()

**デフォルトの名無しさん** · 2018/03/27(火) 12:10:18.56

>>545
いえ、わかんないの？って感じで煽ったらそれぐらい知ってるわ！ってノリで答えてくれる人が出てくるかなと思いまして

**デフォルトの名無しさん** · 2018/03/27(火) 12:20:24.49

お前ら関係ない事まで答えたがるくせにw
何変ないじり方してんだよw

**デフォルトの名無しさん** · 2018/03/27(火) 22:07:01.34

Dim c As Byte

For c = 1 To 43
処理
Next c

For c = 43 To 1 Step -1
ここでオーバーフローのエラーになります。ｃの中身は４４でByteの範囲内です。
エラーになる原因を教えてください。

**デフォルトの名無しさん** · 2018/03/27(火) 22:46:58.40

c = -1
でもオーバーフロー
Byte型にマイナスがだめ

**デフォルトの名無しさん** · 2018/03/27(火) 22:48:09.36

ケチケチしないでLong使えやwwwww

**デフォルトの名無しさん** · 2018/03/27(火) 22:48:40.35

ありがとうございます。型かえます。

**デフォルトの名無しさん** · 2018/03/28(水) 03:53:43.79

>>553
いいってことよ(´・ω・｀)b

**555** · 2018/03/28(水) 03:54:06.82

555げっち(´・ω・｀)b

**デフォルトの名無しさん** · 2018/03/28(水) 21:27:49.05

-1でオーバーフローするってのは判る。それに今どき積極的にByte型を
使う理由もそうないだろうって事も。
だけど>>550でオーバーフローになる理由が判らない。
>>550ではループ終了時にも値はマイナスにはなってないよね？

**デフォルトの名無しさん** · 2018/03/28(水) 21:33:27.08

ぐぐってみたら10年以上前からなんやねんこれってなってる
ttps://www.ozgrid.com/forum/forum/help-forums/excel-general/66761-overflow-error-in-for-loop-stepping-backwards-with-byte

**デフォルトの名無しさん** · 2018/03/28(水) 21:39:46.02

>>557
ありがと。まぁループ変数にByte型を使うなって事で ┐(´д｀)┌ﾔﾚﾔﾚ

**デフォルトの名無しさん** · 2018/03/28(水) 21:48:47.59

For文の内部処理で-1をバイト型にキャストしようとして詰んでしまってるんじゃなかろうか

**デフォルトの名無しさん** · 2018/03/28(水) 22:58:28.63

Step -1 の-1をDim c As Byte　のByte型に合わせようとしたけど、Byte型では
範囲外オーバーフローだぞ…と
なるほど

**デフォルトの名無しさん** · 2018/03/28(水) 23:05:20.91

Variaant型変数を宣言して整数を代入した場合
Dim i
i = 65535
i = i + 1
して65536にしてもオーバーフローエラーにはなりませんでした。
Variant型変数の整数の内部表現はLongが標準なんでしょうか？

**デフォルトの名無しさん** · 2018/03/29(木) 01:39:16.45

>>561
いっぺんヘルプ読んでみ
ttps://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/variant-data-type

**デフォルトの名無しさん** · 2018/03/29(木) 03:39:40.96

急にオートメーションエラーが発生するようになったんだが。。。

**563** · 2018/03/29(木) 03:47:53.56

ググったところ
以下のリンク見て、動くようにはなったが、納得できない感じ
ttps://social.msdn.microsoft.com/Forums/ja-JP/1522c74b-17e7-402d-8a87-2d1a6af1feab/excel-2016?forum=vbajp

Windows Update で動かなくなるとか勘弁

**デフォルトの名無しさん** · 2018/03/29(木) 20:05:15.88

listviewで教えてください

幅を自動調整したい時、ぐぐると「widthプロパティを-1か-2にすべし」と書いてあるのですが、
やってみると「プロパティの値が不正です」とエラーになります。
フォームエディタのプロパティ画面でwidthを直接設定しようとしたら、そもそも「0以上の値を
入力してください」と言われてしまいました。

listviewの仕様が変わるか何かあったのでしょうか。
それとも、実は同名の別のコントロールなのでしょうか。

listview事態は、ツールボックスを右クリックしてその他のコントロールから
Microsoft ListView Control, version 6.0
というのを有効にしています

**デフォルトの名無しさん** · 2018/03/30(金) 07:00:19.72

こんなに詳しいならVBAなんかじゃなくてドットNETに移行したら？
出来る範囲も桁違いに多いし技術的にはVBAとそんなに変わらんじゃん
そう言うわけではないの？

**デフォルトの名無しさん** · 2018/03/30(金) 07:10:50.00

>>566
> VBAなんかじゃなくてドットNETに移行したら？
MSに言ってくれよ...

**デフォルトの名無しさん** · 2018/03/30(金) 07:25:23.82

そうじゃなくてエクセルを使う必要なんてないんじゃないのって事です
.netでもエクセル以上の事も出来るし
エクセルの制約がない分簡単な気がするんだけど
しかもコード的にも少ししか変わらないし

**デフォルトの名無しさん** · 2018/03/30(金) 07:55:52.10

処理対象がエクセルならvbaのほうが手軽
そうじゃないなら他の言語のほうがいい
とか言いつつ俺はエクセル処理にpowershell使ってるけど

**デフォルトの名無しさん** · 2018/03/30(金) 08:07:18.25

個人ならいいけど会社だとエクセル使いの方が多いから合わせないとならんしな

スマートで無いやり方をしているのは思いつかないからではなく他に方法がないからなのであって、
その代替手段は「君だけが思いつける冴えたアイディア」ではないんだよ

**デフォルトの名無しさん** · 2018/03/30(金) 08:24:56.25

>>568
> そうじゃなくてエクセルを使う必要なんてないんじゃないのって事です
お前のところがそう言う環境ならそうすればいい

> .netでもエクセル以上の事も出来るし
Excelを越える操作性を持つアプリを開発できるの？

>>569
> とか言いつつ俺はエクセル処理にpowershell使ってるけど
PowerShellは癖あるけど慣れると楽だよね
Windows 10 に移行して PowerShell 5.0 の class や enum が使えるようになったから嬉しい
と思ってたら Excel も 2013 → 2016 になってて以前のスクリプトがエラーになる...
新年度はまずはこの修正からだな

**デフォルトの名無しさん** · 2018/03/30(金) 08:42:59.54

ExcelはUIとしては優れているじゃないか。
これを利用しない手はない

**デフォルトの名無しさん** · 2018/03/30(金) 08:51:55.14

VisualStudioにOfficeSDKがあるからアプリとして簡単に作れると思うけど
豊富なオプジェクトツールもあるし
スピード速いし制約が少なくて簡単だと思うけどね
まぁ好きなの使えば良いんだけどね

**デフォルトの名無しさん** · 2018/03/30(金) 11:47:00.45

簡単にっていうレベル感によると思うけど、どんなもん？

**デフォルトの名無しさん** · 2018/03/30(金) 13:28:47.23

>>574
ここの質問の出来たり意味とか分かるレベルならそのまま移行出来ると思うくらい簡単
文法はほぼ一緒
エクセルの制約って結構キツくて自由がないのでやりたい事も大回りしながらになるし

**デフォルトの名無しさん** · 2018/03/30(金) 13:37:44.27

簡単に(ただしVisual Studio使用許可を会社に貰う労力は除く)

**デフォルトの名無しさん** · 2018/03/30(金) 17:44:57.97

Excelは宇宙

**デフォルトの名無しさん** · 2018/03/30(金) 20:29:10.14

VSのライセンスを事務屋の分まで手配してくれる会社ってどんなところだろうか。

**デフォルトの名無しさん** · 2018/03/30(金) 20:50:22.47

>>573
VisualStudio OfficeSDKでググってもOffice Developer Tools（Visual Studio Tools for Office (VSTO)）の話とかしか出てこない
お前さんほんとに使ったことある？

**デフォルトの名無しさん** · 2018/03/30(金) 21:08:20.75

>>568
＞しかもコード的にも少ししか変わらないし

お前VB.Net仕事で使ったことないだろ
いくらなんでも舐め過ぎだ
コード的にも少ししか変わらない？
本当にうわべしか見てないのによくそんなことが言えるな
文法的にほぼ同じというだけで
内容的には同じフレームワークのC#とかの方に遥かに近いわ
お前、そんなこと言いながら.Net系の仕事に入ったら一発で首飛ぶぞ

**デフォルトの名無しさん** · 2018/03/30(金) 21:18:35.20

>>571

PowerShell + Excel か～
なんか面白そうだから勉強してみよう

**デフォルトの名無しさん** · 2018/03/30(金) 22:28:42.55

>>580
なんでそんなに必死なの？

**デフォルトの名無しさん** · 2018/03/30(金) 22:41:59.65

えっと、OpenXMLのことかな？

**デフォルトの名無しさん** · 2018/03/30(金) 23:23:13.75

教えてください。

特定のフォルダの中にxlsファイルが一つと、xlsmファイルがあります。
これはシステムの前提です。
xlsファイルが2つ以上ある場合はエラーが出るよう、以下のように作りました。

ThisPass = ThisWorkbook.Path

With CreateObject("Scripting.FileSystemObject")
For Each ff In .GetFolder(ThisWorkbook.Path).Files
If LCase(.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
Next
End With

If N > 1 Then
MsgBox "xlsファイルが" & N & "個見つかりました。" & vbCrLf & _
"xlsファイルは1ファイルだけおいてください。" & vbCrLf & _
"プログラムを終了します｡ "
Application.Quit
ThisWorkbook.Close SaveChanges:=False

End If

質問ですが、
そのフォルダの中に一つだけあるxlsファイル名を取得するには
どうしたら良いでしょうか。
"*.xls"の条件に合うファイル名を返したいです。

**デフォルトの名無しさん** · 2018/03/30(金) 23:26:17.70

Dir関数を使えば良いんじゃないの

**デフォルトの名無しさん** · 2018/03/30(金) 23:29:47.99

既にfso使ってるならそのif分の中でGetBaseNameで取得すりゃいいのでわ
酔っ払ってんのか？