0

だから私の背景のためだけに。アクセス トレーニングがなく、バーコードを設定し、ID カードをインポートして作成する必要があります (アクセスを介してロータス ノートの連絡先を更新します! (どうすればうまくいくかまだわかりません)) ....ばかげています。

とにかく、Excel シートからテーブルへの列のカスタム範囲を重要にしようとしています。この形式は決して変更されるべきではなく、毎月生成されます。必要な列の範囲を設定する方法を理解する必要があるだけです。

ここに私のコードがあります:

  Private Sub Command143_Click()
Box1 = MsgBox("Importing information CANNOT be undone, are you sure you want to continue?(BE SURE TO BACK UP THE ORIGINAL TABLE FIRST!!!)", vbOKCancel, "Warning!!!")
If Box1 = vbOK Then
DoCmd.TransferSpreadsheet acImport, 10, _
    "blarg", Me.Text138, True, "(range goes here)"
End If
End Sub

これまでのところ、すべてがうまく機能しています。カスタム範囲を選択する必要があるだけですが、シンタックスを正しく取得できないようです. 何か案は？

4

1 に答える 1

1

これはAccess 2007でうまくいきました：

Private Sub Command143_Click()
  Dim Box1
  Box1 = MsgBox("Importing information CANNOT be undone, are you sure you want to continue?(BE SURE TO BACK UP THE ORIGINAL TABLE FIRST!!!)", vbOKCancel, "Warning!!!")
  If Box1 = vbOK Then
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
      "blarg", Me.Text138, True, "B2:C5"
  End If
End Sub

Excel ドキュメントでは、範囲 B2:C5 の最初の行が結果テーブルのフィールド名として使用されます。

ここに画像の説明を入力====>

ここに画像の説明を入力

于 2013-11-15T11:06:24.237 に答える