2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

276 :複乳 忍法帖【Lv=4,xxxP】 :2011/06/02(木) 20:18:20.05
>>273
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
あとは、B列にハイパーリンク関数でも使うか
マクロを書き換えるか
それぐらいは自分で
わからんかったらまた聞いて

1/2

Sub a()
Const cnsTITLE = "フォルダ内のファイル名一覧取得"
Const cnsDIR = "\*.xls"
Dim xlAPP As Application
Dim strPATHNAME As String
Dim strFILENAME As String
Dim GYO As Long

Set xlAPP = Application
' InputBoxでフォルダ指定を受ける
strPATHNAME = xlAPP.InputBox("参照するフォルダ名を入力して下さい。", _
cnsTITLE, "C:\") ' @
If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub
' フォルダの存在確認
If Dir(strPATHNAME, vbDirectory) = "" Then ' A

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)