FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/06«│ 2019/07| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/08
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:28:59
おやすみ中にやる予定のこと、半分終りました💖
でも、会いたい人に会ったりしていないのでしないとなと思います。

作業はほぼ通常通りやってます。
今週からやること増えるから忙しくなりますが、頑張ります。
ニンニクで乗りきるよ。
あと蜂蜜しょうが✨
蜂蜜しょうがは夏バテ、疲れ、冷えに効果的なんです(^-^)

毎日2、3杯飲んでも大丈夫b

Const cnsDIR = "\*.xls*"
Dim strFilename As String
Dim GYO As Long ' 先頭のファイル名の取得
strFilename = Dir(TextBox1.text & cnsDIR, vbNormal)
' ファイルが見つからなくなるまで繰り返す
Do While strFilename <> ""
' 行を加算
ListBox1.AddItem strFilename
' 次のファイル名を取得
strFilename = Dir()
Loop

これいいね。Thisworkbookも使えるし。。。

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/440-b0cc0b4b
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト