Excelから特定のアクセステーブルへのインポート

応答6# ->にスキップ

3 #

KenSher 2020-02-25 04:38

あなたの返事は私のものと交差しました.見て、それは明らかでした.

応答8# ->にスキップ

7 #

ErD2 2020-02-24 10:51

ああ、私はハードコードされたversionがどのように機能するかを知っています.それを説明する必要はありませんが、私はどのように実装するのかわからない
誰かがデータを既存のtableに5行を追加しましょう.私はあなたがパラメータとしてTableNameを追加できることを知っています...それはハードコードされていませんが、それを超えて実装する方法はわかりません.

応答7# ->にスキップ

5 #

KenSher 2020-02-25 01:08

値を変数に割り当て、変数をTransferSpreadSheetメソッドの関連引数として使用します.txttableという名前のテキストボックスを持つフォームがあるとしましょう.ターゲットtableの名前が入力されているテキストボックス、txtrangeという名前のテキストボックスがあるとしましょう.
セルの範囲または範囲名が入力されている場合、ユーザーがフィールド名が最初の行としてフィールド名を持つかどうかを示す場合に、TrueまたはFalseのDefaultValueプロパティが与えられているChkhasFieldNamesチェックボックスに.、
そしてインポートボタン.
まずデータベース内の標準モジュールに次の機能を追加します. Public Function BrowseFile(バリアントとしてのVardoctype、バリアントとしてのvareExtension)文字列としての
Dim Strfileとして文字列として
Application.FileDialog(3)
.title= "ファイルの選択"
" .filters.Clear
>そうでない場合は
(vardoctype) .filters.add vardoctype、 "*" &varextension

の場合は終了 .filters.dd "すべてのファイル"、 "*.*"

の場合は strfile=.selectedItems(1)


msgbox "no file selected"、vbinformation
終了機能

の場合は終了

browsefile= strfile
終了機能
インポートボタンのクリックイベントのコードは
薄暗いrtpath
薄暗い文字列としてstrtable
薄暗い文字列としてのstrrange
ブール

strpath= BrowseFile( "Excelファイル"、 "xlsx")
strtable= nz(me.txttable、 "")
strrange= nz(Me.txtrange、 "")
BlnHasFieldNames= Me.ChkhasFieldNames
strpath= ""の場合
'ファイルが選択されていないので、

'msgbox関数を呼び出すことができるなら、彼女はユーザーに知らせるために彼女を
elselif stttable
'tableは選択されていませんので、
'msgbox関数を呼び出すことができるなら、彼女はユーザーに知らせるために彼女を


'Excelデータをtableにインポートする
docmd.transferspreadsheet _
transfertype:= acimport、_
tableName:= strtable、_
filename:= strpath、_
HasFieldNames:= BlnHasFieldNames、_
範囲:= strrange
終わり