プログラミング

2021/7/27

Power BIとは?利用用途・メリット・デメリットを徹底解説

業務を最大限効率化したり、ビッグデータを取り扱う際に効果的な方策の一つに「Power BI」というツールがあります。 しかし、その利用用途や利用メリットやデメリットを知らない方も少なくありません。 そこで本章では、このPower BIの利用用途やメリット・デメリットについて詳しく解説していきます。   目次1 Power BIとは1.1 Power BIでできること2 Power BIの種類3 ExcelでできなくてPower BIでできること4 Power BIの利用するメリット・デメリット4 ...

ReadMore

チャーガ 健康法・ケア

2021/7/26

チャーガに含むβグルカン高濃度・高癌抑制効果おすすめサプリ5選!

癌の抑制効果やダイエット効果など、様々な健康効果が期待され、国内需要が高まってきているチャーガ(カバノアナタケ)茶。   しかし、癌抑制効果が高いのはチャーガなどのお茶だけではないことをご存じでしたか。 チャーガに含まれているβグルカンの影響が高く、その癌抑制効果や健康効果が発見され、需要がいっそう拡大してきています。 そこで、品質は当然のこと、そのチャーガのみならず、このβグルカンを多く含む癌抑制効果や健康効果の高いサプリメントを厳選してご紹介していきましょう。   目次1 チャーガ ...

ReadMore

エクセル関数 プログラミング

2021/7/26

【初心者向け】Power BIおすすめ教本5選!使い方が手軽に分かる

  データサイエンティストが利用されると言われる「Power BI」。しかし、その機能や使い方も知らない方も多いのが実情です。 そこで、Power BIの機能性や利用メリットなどを理解するためにはどんな教本がおすすめなのか、初心者でもわかりやすいおすすめ教本5つ厳選してご紹介していきます。   目次1 Power Biを購入する前に知っておきたい3つのポイント2 Power Biを始める際の教本の選定ポイントは?3 Power BIの使い方が初心者でも基礎からわかる!おすすめ教本ランキ ...

ReadMore

映画 洋画

2021/7/15

海外映画『トゥモロー・ウォー』フル動画を無料視聴するならこれ一択!おすすめの視聴方法とは

最新人気映画「トゥモロー・ウォー」。海外のフル動画で見たり、無料視聴する方法にはあらゆる視聴方法が普及してきています。 そんな中でも、こんな悩み。 悩む女性1 海外映画無料視聴したい。 映画が今すぐ見たい。 借りに行くのが面倒くさい。 簡単にフル動画をみたい。   そんな海外映画を見て、有意義なひと時を過ごしたい。そんなふうに感じる事もあるかと思います。そこで、海外映画を無料視聴する方法やフル動画を見る方法があるのか。そんな悩みについて解説していきましょう! 管理者   また海外映画を ...

ReadMore

テレワーク 生活情報

2021/7/21

テレワーク業務効率10倍UP!コスパ最強おすすめ便利グッズ8選

  COVID19の影響に伴って加速する「テレワーク・在宅勤務」。   悩む女性1 しかし、実際に自宅で仕事をしてみると、案外仕事ができる環境じゃなくて、仕事が捗らない! そこで、このテレワークで充実した仕事ができるような環境を整備することも非常に大切です。 私もテレワークは、とても小さい椅子と縦長の狭い机でパソコン2台を使って作業をしていたので、非常にやりづらさを感じていました。   そこで、心機一転テレワーク環境を整備するためにデスクやチェア、PCガジェットを購入して、非 ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

【AFFINGER6】購入者限定10大特典付き!初心者向けおすすめアイコン・戦略あり

当サイトからAFFINGER6(ACTION)をご購入頂いた方のために、当サイトでしか受け取れない購入者限定特典をお付けして、皆様のブログ運営を全力でサポートさせて頂きます。 またそれ以外にも、ブログで大切なことはいったいなんなのか、その根源を教える内容を盛り込んでご紹介していこうと思います。   目次1 「AFFINGER6(ACTION)」について2 購入する前に「AFFINGER6」の魅力を知ろう!3 AFFINGER6-当サイト限定10購入者特典について3.1 AFFINGER6当サイト ...

ReadMore

AFFINGER6 Wordpress

2021/7/12

AFFINGER6(ACTION)の購入メリット・デメリットを徹底解説【特典あり】

有料のWordpressテーマを選ぶなら「AFFINGER6(ACTION)」が絶対におすすめです。   悩む女性1いったいどうしてAFFINGER6がおすすめなの? 実際に無料のテーマと有料のテーマを利用した私が実体験を元にそのおすすめの理由とメリット・デメリット、そして詳細の機能について実体験に基づいてレビューしました。 管理者   ぜひ皆様の参考になれば幸いです。   目次1 有料Wordpressテーマ「AFFINGER6(ACTION)」を利用すべきおすすめ理由3つ ...

ReadMore

ジブリ 映画

2021/7/19

映画ジブリ『借りぐらしのアリエッティ』フル動画を無料視聴するならこれ一択!おすすめの視聴方法とは

昔からある人気のジブリ映画「借りぐらしのアリエッティ」。そんな昔のアニメをフル動画で見たり、無料視聴する方法にはあらゆる視聴方法が普及してきています。 そんな中でも、こんな悩み。 悩む女性1 ジブリ映画を無料視聴したい。 昔のジブリ映画が今すぐ見たい。 借りに行くのが面倒くさい。 簡単にフル動画をみたい。   そんな懐かしのアニメを見て、子供と一緒に癒されたい。そんなふうに感じる事もあるかと思います。 そこで、昔のジブリ映画を無料視聴する方法やフル動画を見る方法があるのか。そんな悩みにお答えして ...

ReadMore

ママが得する!富士山の玄武岩層・地下約200メートルから汲み上げた大人気ウォーターサーバー

Excel-VBA プログラミング

【Excel-VBA】フォルダ内のファイルを一括で読み込む方法と読めない場合の原因と対処法

今人気沸騰中!テレワーク低糖質ダイエット商品

フォルダ内のファイルを一括で読み込む際に出るエラー。「Dir$()」に同一ファイルが表示されて、無限ループしてしまう現象が起こり、ファイルを読み込めない。

 

[balloon_left img="https://tarmiyan.net/wp-content/uploads/2020/01/user-1.jpg" caption="ユーザー"]

・変数に次のファイルが読めない

・同じファイル名ばかり入ってくる

・一つずつファイルを読み込むはずの「DIR()$」が全く読み込まない

[/balloon_left]

 

という経験はありませんか?こんな悩みに関して、このDIR()$が読み込まない場合の原因とその対処法について解説していきましょう。

Dir$()の読み込みエラー表示

それでは、実際にどんなエラーの現象が出てしまうのか見ていきましょう。

<Dir$()の読み込み表示エラーについて>

  • ずっと同じファイル名が表示される
  • 結果同ファイルを読み込むので無限ループになる

 

 

まずこのDIRの読み込みエラーには、どんな現象が起こるのかというと、同じディレクトリーに格納されているファイルを一括で読み込む処理ですが、新しい次のファイルが変数に入ってこないという現象が起こります。

まずは、こちらの処理をご覧ください。

Sub Test()
Dim strbuf As String
Dim lngCount As Long
Private Const Path As String = "C:\test\"

    strbuf = Dir(Path & "*.xlsx")
    Do While strbuf <> ""
        lngCount = lngCount + 1
        Cells(lngCount , 1) = strbuf 
        strbuf = Dir$()   ’←ここで、新しいファイルを読み込むが・・・・エラー
    Loop
End Sub

 

このように、下から3行目のところでDir関数が記述されていますが、ここで変数にファイル名が引き渡されるのですが、Do while文で何度も処理を回しているのにファイルが切り替わらないのです。

ファイルが切り替わらないため、当然無限ループになってしまいます。

これはまずいです。

 

 

DIR$()の変数が切り替わらない原因とは

[balloon_left img="https://tarmiyan.net/wp-content/uploads/2020/01/user-1.jpg" caption="ユーザー"]いったいこの原因はどこにあるんだろう?[/balloon_left]

このDir$()の変数に値が入ってこない原因について下記の理由が挙げられます。

 

<Dir$()の変数に値が入ってこない原因とは>

  • 読み込みファイル破損
  • プログラミングの記述が古い

 

よくあるのが、読み込むファイルそのものが破損していることがあります。

こうした場合には、ファイル名が先に読み込めないことがありますので、注意が必要です。

またもしかしたらプログラムソースの記述が古いなんてことがあります。これらの場合には、読み込む記述方法を書き換える発想の転換も大切です。

 

読み込まない場合の2つの対処法

それでは、フォルダ内のファイルを一括で読み込むことができない場合の対処法について解説していきましょう。この対処法には、大きく分けて2つに方法が挙げられます。

 

<読み込まない場合の2つの方法>

  • ファイルを置き換える
  • プログラムソースを根本から書き換える

 

ファイルを作り替えましょう

読み込まない場合には、まずはファイルを作り変えてみましょう。一から読み込むファイルを作り替えると動作することがあります。

ファイル自体の破損が起こっている場合にも、プログラムが正常に働かないこともあるので、注意しましょう。

 

FileSystemObjectによるソースの書き換え

それでも大きな変化が得られない場合には、プログラミングの記述を新しくしてみる方法も一つの方法です。

これはどういうことかというと、そのあなたの記述するコーディングが昔の古い形式の処理の場合処理が動かない場合があります。

「FileSystemObjectのVBScript」の処理を活用して記述する方法です。

下記の記述方法にソースを変更して見て下さい。

 

■VBScriptによるフォルダ内のファイルを一括で読み込む処理

Sub Test2()
Dim f As Object
Dim lngcnt As Long
Dim strData(1) as String

    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder("C:\test").Files  ’←testフォルダ内のファイルを読み込む
            cnt = cnt + 1
            strData(0) = f.Name ’←ファイル名取得
            strData(1) = f.DateCreated
        Next f
    End With
End Sub

 

または、VBScriptでも動作しますので、こちらに変更して試してみてください。

設定環境について

このエラーが起こった設定環境についてお伝えしておきます。

【設定環境】

  • Office:2016
  • OS:Win7

 

 

まとめ

このように、プログラムの記述は、一つの記述方法だけではありません。

アルゴリズムを組み立てれば、色々な記述をすることができますので、色々な記述で動作するプログラムを記述していきましょう。

 

大人気自宅飲み放題!多彩なビールをご自宅で楽しめる【DREAM BEER】

楽天おすすめ商品はこちら

人気急上昇中!累計販売数40万本突破『どこでもミラバス』

Copyright© 副業ケアネット , 2021 All Rights Reserved Powered by AFFINGER5.