出雲川開発

URLMON（URLMoniker）ライブラリのAPI関数、「URLDownloadToFile」を使用して、インターネット上の指定URLのファイルをダウンロードする方法を紹介します。ここでの”ファイル”とは、インターネットからダウンロード入手できるフリーソフトのようなものだけでなく、そのURLで表示されるHTMLファイルやそこで使われている画像ファイルなどもすべて含みます。

まず、標準モジュールに次のようなAPIの宣言を記述します。

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                          (ByVal pCaller As Long, ByVal szURL As String, _
                           ByVal szFileName As String, ByVal dwReserved As Long, _
                           ByVal lpfnCB As Long) As Long

次のサンプルプロシージャでは、当サイトより、LZHファイル、HTMLファイル、JPEGファイルをダウンロードしています。ダウンロード元URLを変更することで、さまざまなファイルをダウンロードできることが分かると思います。

Sub test()

  Dim strURL As String
  Dim strFileName As String
  Dim lngRet As Long

  '*************************************
  ' LZHファイルのダウンロード
  '*************************************
  'ダウンロード元のURLを設定
  strURL = "http://www.tsware.jp/download/cabinet/jinz200.lzh"
  'ダウンロード先の保存ファイル名を設定
  strFileName = "c:\jinz200.lzh"
  'ダウンロードの実行
  GoSub ExecDownload

  '*************************************
  ' HTMLファイルのダウンロード
  '*************************************
  strURL = "http://www.tsware.jp/index.htm"
  strFileName = "c:\index.htm"
  GoSub ExecDownload

  '*************************************
  ' JPEGファイルのダウンロード
  '*************************************
  strURL = "http://www.tsware.jp/images/topmainphoto.jpg"
  strFileName = "c:\topmainphoto.jpg"
  GoSub ExecDownload

  Exit Sub

ExecDownload:
'ダウンロードの実行
  lngRet = URLDownloadToFile(0, strURL, strFileName, 0, 0)
  If lngRet = 0 Then
    MsgBox "ダウンロードに成功しました！", vbOKOnly + vbInformation
  Else
    MsgBox "ダウンロードに失敗しました！", vbOKOnly + vbExclamation
  End If
  Return

End Sub

CSVファイルをテーブルにインポートするソース

DoCmd.TransferText acImportDelim, , "amajpcsv", msg, True

以下のコードに置いて数万件のレコードがはじめの数十件しかインポートできない。
テーブル定義は、先頭フィールドがテキスト。
インポートできるデータの数十件は数字で入っているようだ。

どうやら、一つのフィールドに数字と文字が混ざっているとダメらしい。
データを並べ替えて文字データを先頭に持ってきたら全部読みこまれた。
並べ替えるのは大変なので、これでイケルようなのでやってみたらすんなり成功。

まず、メニューの「外部データの取込」「インポート」でテキストファイルを指定して、
インポートウィザードで起動します。そこで「設定」をクリックして
「インポート定義」を開きます。そこで、各フィールドのデータ型を指定します。
「保存」をクリックして定義名を付けて保存します。

TransferTextメソッドの第２引数に上で付けた定義名を指定します。

DoCmd.TransferText acImportDelim, "Jpデータ_インポート定義", "amajpcsv", msg, True

Accessで送料一覧テーブルと、重量フィールドのある商品一覧テーブルを結合して送料情報を得たい

プライマリの結合はいらない。