0

所以只是为了我的背景。没有访问培训，我必须以某种方式设置条形码，导入和创建身份证（哦，并通过访问更新 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

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

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 文档中，Range B2:C5 的第一行将用作结果表的字段名称：

在此处输入图像描述====>

在此处输入图像描述

于 2013-11-15T11:06:24.237 回答