2014年1月15日のブックマーク (1件)

  • Excel VBAでファイルパスの末尾をチェックして、セパレータを追加する - 東京アンダーグラウンド

    「C:\tmp」というフォルダに「hoge.txt」があるとする。 このhoge.txtを指定するには「C:\tmp\hoge.txt」と指定しなければいけない。 しかしこのとき、フォルダの末尾に「\」がちゃんと書いていないと、 「フォルダ」と「パス」が別々に指定されていたときに、ファイルをちゃんと見つけることができない。 具体的には、このような場合だ。 フォルダとファイルが別セル書かれている。 それぞれの値を利用して、ファイルを開きたいが、パスの末尾にセパレータが書いてあるかはわからない。 なので、ちゃんとセパレータをチェックしよう。 コード例 以下のサンプルでは、フォルダの末尾が「\」であるかを確認して、「\」でなかった場合に「\」を追加している。 Option Explicit Sub ファイルのパスを調べる() Dim orgFolderPath As String Dim fil

    Excel VBAでファイルパスの末尾をチェックして、セパレータを追加する - 東京アンダーグラウンド
    sho322
    sho322 2014/01/15
    思うところあって一番にセルクマ。