访问 TransferSpreadsheet 命令选择自定义范围答案

【问题标题】：Access TransferSpreadsheet Command selecting custom range访问 TransferSpreadsheet 命令选择自定义范围
【发布时间】：2013-11-14 19:59:18
【问题描述】：

所以只是为了我的背景。没有访问培训，我必须以某种方式设置条形码，导入和创建 ID 卡（哦，通过访问更新 Lotus Notes 联系人！（仍然不知道我将如何使其工作））如果我的问题看起来很抱歉.... 好白痴。

无论如何，我正在尝试将自定义范围的列从 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

到目前为止，一切都很好，只需要选择自定义范围，但我似乎无法正确使用合成器。有什么想法吗？

【问题讨论】：

标签： vba ms-access import range

【解决方案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 文档，Range B2:C5 的第一行将作为结果表的字段名：

====>

【讨论】：