カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

テキストファイル読み書き関数

  • VB,VBA
  • 2008-11-14 - 更新:2012-03-23 
'# テキストファイルを一括読み込み
Private Function ReadFile(strFilename As String) As String

    Dim nFNO        As Integer 'ファイル番号
    Dim strData     As String

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Input As #nFNO
    strData = StrConv(InputB(LOF(1), #nFNO), vbUnicode)
    Close #nFNO '閉じる

    ReadFile = strData

End Function

続きを読む…»

1,901 views

オートメーション

  • VB,VBA
  • 2008-10-31 - 更新:2014-05-28

AccessからOfficeアプリケーションを制御すること

, ,
1,945 views

DLookup

  • VB,VBA
  • 2008-10-23 - 更新:2012-03-23

[書式]

DLookup("抽出したいフィールド名", "テーブル名", "フィールド名 = 検索値")
DLookup("抽出したいフィールド名", "テーブル名", "フィールド名 = '検索文字列'")
2,418 views

配列変数を再定義するとき

  • VB,VBA
  • 2008-10-22 - 更新:2012-03-23

後で要素数を変更したい配列を定義するとき

Dim Str() as String

要素数を変更し再定義

ReDim Str([n]) as String

※最初に要素数を指定し、宣言した場合はReDimを使っての再定義ができません。

配列の内容を残したまま、要素数を増やしたい場合は

ReDim Preserve Str([n]) as String

と再定義します。

3,726 views

CSVファイル　SYLK：ファイル形式が正しくありません

  • Windows
  • 2008-10-17 - 更新:2012-03-23

CSVファイルを開く際、「SYLK: ファイル形式が正しくありません」と表示されてファイルが開けないエラー

【原因】
A1のセルに「ID」という値（半角）で入っているのが原因

この場合SYLK形式のファイルと誤認識してExcelが読み込もうとするが、実際には形式がまったく違うので正しく読み込めずにエラーになる。

余談だが、省略された用語の正式名称
CSV : Comma Separated Value format
SYLK : SYmbolic Link format

4,877 views