背景情報: 私は VBA や Access にあまり詳しくありませんが、ユーザーのコンピューター上にファイル (具体的には KML ですが、これは私の質問にはあまり関係ありません) を作成する VBA スクリプトを持っています。データベース内のレコードにリンクする変数を使用して書き込みます。そのような:
Dim MyDB As Database
Dim MyRS As Recordset
Dim QryOrTblDef As String
Dim TestFile As Integer
QryOrTblDef = "Table1"
Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset(QryOrTblDef)
TestFile = FreeFile
Open "C:\Testing.txt"
Print #TestFile, "Generic Stuff"
Print #TestFile, MyRS.Fields(0)
等
私の状況: 非常に大きな文字列 (ポリゴン頂点座標の大きなリストを含むテキスト ドキュメント) を変数に追加して、別のファイル (上記の例で示した KML ファイル) に出力したいと考えています。座標を含むこのテキスト ファイルを添付データ型として Access データベースに追加し、その内容を変数にコピーして上記のスクリプトで使用することを望んでいました。
私の質問: VBA スクリプトで使用できるように、添付テキスト ファイル (MS Access データベースのフィールド内の添付データ型として添付) のデータにアクセスして変数にコピーする方法はありますか?
私が見つけたもの: このトピックに関する情報を見つけるのに苦労しています。主に、検索するキーワードがわからないためだと思いますが、フォーラム「ozgrid」で誰かのコードを見つけることができました。やりたいことに近づくために。データベースに添付されたものではなく、ディスク上のテキストファイルからプルしているだけですが。
テキスト ファイル内のデータにアクセスする関数を作成する上記のフォーラムのコード:
Sub Test()
Dim strText As String
strText = GetFileContent("C:\temp\x.txt")
MsgBox strText
End Sub
Function GetFileContent(Name As String) As String
Dim intUnit As Integer
On Error Goto ErrGetFileContent
intUnit = FreeFile
Open Name For Input As intUnit
GetFileContent = Input(LOF(intUnit), intUnit)
ErrGetFileContent:
Close intUnit
Exit Function
End Function
ここで何か助けていただければ幸いです。ありがとう。