DoCmd Transfer电子表格在Windows10中不起作用
DoCmd Transfer电子表格是Microsoft Access中的一个操作，用于将数据从Access表格导出为电子表格文件，比如Excel文件。然而，有时在Windows 10中，这个操作可能无法正常工作。
可能的原因包括以下几点：
- Office版本问题：首先，确保你使用的是兼容Windows 10的最新版本的Microsoft Office。如果你使用的是旧版本的Office，可能会导致某些操作不起作用。建议升级到最新的Office版本。
- 安全设置问题：Windows 10具有更严格的安全设置，可能会阻止某些操作，例如将数据导出到外部文件。你可以尝试更改Microsoft Office的安全设置，允许导出操作。
- 缺少文件格式支持：如果你尝试导出为某种特定的电子表格文件格式（如.xlsx），但你的系统缺少相应的文件格式支持，导出操作可能会失败。确保你的系统已安装适当的文件格式支持。
解决这个问题的方法包括：
- 更新Microsoft Office到最新版本，以确保与Windows 10的兼容性。
- 检查并更改Microsoft Office的安全设置，允许导出操作。
- 尝试导出为其他电子表格文件格式，如.csv，以验证是否是特定文件格式的问题。
如果你仍然遇到问题，建议咨询Microsoft Office的官方支持渠道，以获取更具体的帮助和解决方案。
腾讯云相关产品和产品介绍链接地址如下：
- 云服务器（Elastic Compute Cloud，简称CVM）：提供基于云的弹性计算能力，可按需调整计算资源，支持多种操作系统。详情请参考：https://cloud.tencent.com/product/cvm
- 对象存储（Cloud Object Storage，简称COS）：提供安全、耐久、高可用的云端存储服务，适用于存储和处理大量非结构化数据。详情请参考：https://cloud.tencent.com/product/cos
- 人工智能开发平台（AI Lab）：提供了一站式的人工智能开发环境，包括视觉、语音、自然语言处理等多个领域的AI能力和API接口。详情请参考：https://cloud.tencent.com/product/ailab
请注意，以上仅为腾讯云提供的部分相关产品，更多产品和详细信息可以访问腾讯云官方网站进行了解。
相关·内容
在MS Access中，我有VBA代码，它创建两个电子表格，然后打开它们。但是，我的代码在Excel的不同实例中打开这些电子表格。电子表格相互引用，因此它们需要在同一个实例中打开才能正常工作。从桌面手动打开文件(在单个实例中)工作正常(电子表格可以在它们的合作伙伴中找到数据)。
我怎么能让他们在同一个情况下打开呢？
DoCmd.OutputTo acOutputQuery, "CrossTab", "ExcelWorkbook(*.xlsx)", "C:\Users\10331654\Desktop\CrossTab.xlsx", True, &
浏览 2提问于2016-10-04得票数 0
回答已采纳
1回答
需要有关access VBA的帮助我正在尝试将电子表格从excel导入到Access中。一旦它被导入，它将被附加到一个不同的表中，导入表将被删除，这样我就可以导入一个新的电子表格。然而，我在追加时出错，我需要追加整个表格，因为我并不总是知道电子表格中的标题以及它们有多少。请帮帮忙。下面是我一直在编写的代码。
模块-
Option Compare Database
Function selectFile()
Dim fd As FileDialog, fileName As String
On Error GoTo ErrorHandler
Set fd = Application.Fil
浏览 0提问于2016-05-17得票数 0
2回答
我一直试图将Excel电子表格作为表导入MS Access 2013 (通过接口)，并为"SegmentID“字段生成”类型转换失败“错误，该字段为Integer类型。
在检查Excel电子表格中失败的行号时，它们确实是整数，就像所有其他的整数一样。即使重新输入整列并将其设置为数字(并删除小数位)也会产生相同的错误。我需要对许多电子表格进行此导入，几乎我尝试的每个电子表格都有相同的错误，在整个电子表格中，错误范围从几个到数千个不等。电子表格采用.xlsx格式。
任何想法都将不胜感激。我曾想过用这样的方法手动完成：
DoCmd.RunSQL "CREATE TABLE T
浏览 4提问于2014-02-05得票数 2
回答已采纳
1回答
有这个代码，我想从环境中获取用户名，并将其插入到代码中的桌面路径中；
UseName = Environ("UserName")
DoCmd.TransferSpreadsheet _
acExport, _
acSpreadsheetTypeExcel12Xml, _
"RevbyYrbyMo", _
"C:\Users\UseName\Desktop\RSExcel.xlsx", _
True
尝试过符号，引号等，什么都不起作用。希望电子表格自动出现在用户的桌面上。
谢谢
浏览 2提问于2018-05-30得票数 0
回答已采纳
我正在使用Microsoft。我正在使用DoCmd.RunSavedImportExport命令通过VBA执行保存的导入(从Excel电子表格)。我想要programmatically捕获这个保存的导入处理的记录数。
DoCmd.RunSavedImportExport上的MS文档并不表示我可以使用任何返回值或ByRef参数。
我搜索了谷歌( Google )，期待得到答案，因为我认为这个问题已经得到了解决。如果我在网上错过了一个答案，请告诉我！
这是我正在使用的代码。如果可以给出行数，我很乐意使用不同的方法导入电子表格。
DoCmd.RunSavedImportExport "<
浏览 1提问于2019-10-01得票数 2
回答已采纳
我已经制作了一段VBA代码，它将两个表从MS Access 2010导出到一个新的xlsx电子表格。在再次运行代码之前，我手动删除了电子表格。
my tables中的字段名称将作为单元格数据导出到电子表格中。我可不想这样。
在下面相同的代码中，我将一个导出属性设置为true，另一个设置为false，以显示这两个属性的导出方式相同。我既尝试了false，也尝试了true。
public sub output
outputFileName as string
outputFileName = "J:\My Documents\testmycode.xlsx"
DoCmd.Tr
浏览 1提问于2016-01-12得票数 1
2回答
我想打开“打印”对话框。我已经十年没有用VB编程了，我已经有点生疏了。
我得到了一个脚本的副本，该脚本选择一个MDB文件，然后只打印一个副本。我的思维过程是：
打开对话框；
选择打印机；
打印副本的数量；
打印。
目前，我要修改的原始脚本的部分是：
[SQL query above this]
....
' Open form
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("select@@identity")
Debug.Print rs(0)
Dim q As String
q = &
浏览 4提问于2013-07-18得票数 1
1回答
我与所有员工都有一个程序；每个员工都有一个特定的附件文件。当我从主列表中单击特定的员工名称时，只打开带有其文件附件的表单。我已经创建了一个按钮，该按钮应该打开一个查询，然后遍历每个员工附件，然后将文件复制并粘贴到另一个位置。
循环本身工作，并完成传输所有员工文件的任务。问题是，当我尝试应用employee id (empl_id)时，它将不允许我将查询过滤到在我的表单中打开的特定雇员文件。
我尝试将empl_id过滤器直接添加到查询本身。它在没有过滤器的情况下工作，但是当我添加filter参数时，它会中断。我已经尝试过从VBA中提示用户输入empl_id，这样它就可以过滤正确的员工，但这也不起
浏览 3提问于2022-10-07得票数 0
我正在使用Docmd.Output导出一些数据到excel。
FileName = "CategoryBreakdown.xls" DoCmd.OutputTo acOutputStoredProcedure, sqlSP, acFormatXLS, FileName, True
当我已经导出了一次数据，并且打开了一个名为"CategoryBreakdown.xls“的excel电子表格时，就会发生错误。
是否使用错误并显示一条消息告诉用户关闭电子表格/以不同的名称保存电子表格的最佳实践？或者是否有一种方法可以在运行时检查是否有一个具有该名称的文件打开，并在该文件崩溃
浏览 8提问于2015-11-24得票数 0
回答已采纳
1回答
我有一个简单的表单，有几个组合框，一个文本框，用户在其中输入他们想要另存为的文件名(将是一个电子表格)，以及几个按钮来运行一些查询。当一个按钮被按下时，它会打开文件对话框来选择路径，但文件名本身是硬编码在子例程中的。如何获取文本框中的值并将其传递给按钮事件例程，该例程运行适当的查询并导出电子表格？在例程中，我将其命名为FileName，表单上的文本框被命名为fileName。 Option Compare Database
Option Explicit
Private Sub AllPaybacks_Click()
Dim getFolder As Object
Dim sLoc As
浏览 15提问于2020-04-28得票数 0
我有提取数据的查询，并为每个查询创建一个工作簿。工作簿将写入本地驱动器。
我手动将每个选项卡/工作表添加到主工作簿。我想让我的代码为每个查询结果创建一个带有工作表的主工作簿。
此代码创建6个独立的电子表格；
Function PROC_WithoutRACF()
On Error GoTo WithoutRACF_Err
DoCmd.OutputTo acOutputQuery, "MyTable1", "Excel97-Excel2003Workbook(*.xls)", "MyFileLocation.xls", False, &#
浏览 2提问于2018-03-08得票数 1
我试图链接到Microsoft 2016数据库中的Excel电子表格。我获得了包含Excel电子表格的文件夹的权限，并且现在可以在那里创建/打开/编辑文件。链接此电子表格的问题是工作表名称将在没有通知的情况下更改(它是从另一个程序导出的)。
我可以在Access GUI中创建到Excel电子表格的链接表，查询运行良好，但是当工作表名称更改时，链接就会中断。我想我可以删除并重新链接电子表格，或者每次使用DoCmd.TransferSpreadsheet方法打开Access数据库时都删除/重新导入，但是我得到了错误3051:文件被锁定或者您没有权限。
我知道代码可以工作，因为我将电子表格移到了我的
浏览 7提问于2017-06-26得票数 0
回答已采纳
1回答
我有一个下面的代码：
Dim IDfiltr As Long
IDfiltr = Forms!KONTROLA!ID_OS
DoCmd.OpenForm "OSOBA", acNormal, "", "", , acNormal
Forms!OSOBA.FilterOn = False
DoCmd.ApplyFilter "", "[Forms]![OSOBA]![ID_OS] Like " & IDfiltr
在最后一行中，我试图将VBA变量IDfiltr替换到DoCmd.ApplyFilter的表达式中
浏览 4提问于2013-05-16得票数 1
我试图使用下面的VBA代码导入excel电子表格。在引入之前，我还要删除表中当前的内容。
DoCmd.RunSQL ("DELETE * FROM REBATE_PROG")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "REBATE_PROG", filepath, True
rebate_prog表已经有定义为长文本的字段(据我理解，这是旧的备注字段)，这些字段应该能够存储>255个字符。
为什么Access会截断内容？
我尝试过的一些东西，都没有成功：
在正在截断的字段
浏览 11提问于2016-02-18得票数 2
回答已采纳
1回答
我正在Access中创建一个仪表板，用于监视我们用于数据输入的excel电子表格。重要的是，我们要避免锁定电子表格，所以我一直使用计时器上运行的已保存数据导入。代码在第一次运行时就运行得很好。在第二次刷新时，列表框返回空白，并且表的数据将被删除。
我的猜测是列表框锁定了表，所以我尝试了一个DAO.Recordset，但我也遇到了同样的问题。
如何继续获取此计时器的更新？
私有子Form_Timer()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE test.* FROM TEST"
DoCmd.RunSavedImportExport
浏览 0提问于2014-02-22得票数 0
我有两个访问表，数据必须从这些表导出到电子表格集。这是否可以使用"DoCmd.TransferSpreadsheet“查询来执行？代码如下，以供参考。
Call CreatePieChart("julydupscores", "julyapvscores", "C:\Performance Database\graph123.xlsm")
'FUNCTION
Public Sub CreatePieChart(sSource As String, qSource As String, msFileName As String)
浏览 4提问于2013-03-11得票数 0
当我在access 2013中使用以下代码传输电子表格而不进行格式设置时，我得到了一个预期表达式的编译错误。我在这里做错了什么？
‘DoCmd.TransferSpreadsheet，acSpreadsheetTypeExcel12Xml，"TBL_Record_B"，，True，’‘
浏览 5提问于2020-11-25得票数 0
1回答
strRange = "C:C，H:H，J:J，S:S，AA:AA“
DoCmd.TransferSpreadsheet , cSpreadsheetTypeExcel12Xml, "tbl_adds", strInputFileName, True, stRange
所讨论的电子表格有40列，其中我只需要5列(在stRange中列出)
这是语法问题，还是必须使用不同的方法？
浏览 3提问于2017-10-24得票数 0
回答已采纳
2回答
我有一个正在传输电子表格的access vba模块。
DoCmd.TransferSpreadsheet acImport, 8, "MyTable", "\\hello\world.xls", True, "a1:b1000"
我正在将access数据库转换为sql，并用sql queries.替换所有模块
这段vba代码的sql代码是什么？DoCmd.TransferSpreadsheet acImport, 8, "MyTable", "\\hello\world.xls", True, "a1:b1
浏览 6提问于2013-07-02得票数 1
我正在编写代码，以便让Access在Excel中关闭刚刚导出的电子表格。然而，我不断抛出一个错误，这告诉我，我的表不存在，即使我是直盯着它！非常令人沮丧。我们非常感谢所有的帮助。谢谢。
Private Sub Command12_Click()
DoCmd.SetWarnings False
Const xlFileName As String = "\\ct13nt003\mfg\SMT_Schedule_Files\SMT Line Progress Files\Test\SMT2Updated.xlsx"
Dim xlapp As Object
Dim wb As O
浏览 2提问于2013-11-22得票数 1
回答已采纳
我遇到了一个非常意想不到的问题，因为我有一个excel电子表格，我正在使用DoCmd.TransferSpreadsheet将其导入到Microsoft Access数据库中。它看起来工作得很好。但现在我已经进入项目的最后阶段，并开始计算导入的数据……我注意到所有的计算结果都恰好是它们应该值的两倍。罪魁祸首竟然来自一个非常令人惊讶的来源！
事实证明，当我使用DoCmd.TransferSpreadsheet导入时，它几乎复制了每条记录。在4000行电子表格中，我创建的Access表有7998行。在研究这个问题的过程中，我遇到了许多关于如何在导入后删除重复项的建议。在我的情况下，这根本不是一个解
浏览 3提问于2015-05-18得票数 2
回答已采纳
1回答
我正在尝试导入工作簿中的所有电子表格以进行访问。但是，即使没有收到错误消息，也不会将任何内容导入Access。除了下面提到的行之外，一切都正常工作，尽管Access似乎正在导入电子表格，但我的表中没有显示任何内容。
Public Sub Import_Excel_Workbook()
Dim strFile As String
Dim StrFldrPath As String
Dim strfilelist() As String
Dim intFile As Integer
Dim filename As String
DoCmd.SetWarnings False
StrFldrPat
浏览 3提问于2014-01-08得票数 0
我正在尝试使用下面的代码将报告从Access导出到Excel。
pat = CurrentProject.Path
Set xlo = CreateObject("Excel.Application")
Nname = "MonthlyData" & Left(Now(), 5)
DoCmd.OutputTo acOutputReport, "MonthlyAll", "Excel 97 - Excel 2003 Workbook (*.xls)", pat & "\" &a
浏览 11提问于2017-10-24得票数 0
在我们的办公室从2007年切换到2013年之前，我使用的是一种运行良好的DoCmd.TransferSpreadsheet方法。这就是我使用的代码。
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TableName", strDropFile, -1
然而，现在我们切换了，我得到了一个错误，说an external table is not in the expected format.我不确定是否因为Office2013的变化，方法中应该使用不同的电子表格类型。
谁知道我现在使用Office
浏览 2提问于2015-07-18得票数 0
自从我们安装了Office2007之后，我们的VBA应用程序的代码就停止工作了。当我调试时，我得到一个编译错误，并且.Edit被突出显示。我用.Update替换了.Edit，没有得到任何调试错误，但是当我运行代码时，我得到了一个类型不匹配的错误代码。我是不是做错了什么？
代码如下：
Private Sub Command290_Click()
On Error GoTo Err_Command290_Click
'This routine imports the latest Changepoint CSV file into the ChangepointCSV table.
浏览 0提问于2010-04-22得票数 0
回答已采纳
2回答
我在Access 2007数据库中存储了一个查询。我在这台机器上可以进入2010年。我想做以下几点：
filenameupdate 将Excel电子表格导出为数据库中的临时表。向临时表中添加一列，并使用导出表的内容将其填充为链接表。
更新是Access前端存储的查询。当我从Access运行更新查询时，它工作得很好。但是，当我使用代码从VBA运行它时：
sub test()
filename=thisworkbook.name
Set db_fe = OpenDatabase("C:\Data\myDB.mdb")
If TableExists(db_fe, "temp
浏览 3提问于2011-08-08得票数 0
1回答
我有一个在Teradata中构建的传递查询，用于将数据导出到Excel电子表格。我试图将其自动化，但当我运行宏或打开查询时，会弹出一个窗口，询问数据源。我创建了一个ODBC连接，我认为必须有一种方法让宏传递数据源名称，这样它就可以在不进行交互的情况下运行。
编辑:根据请求添加宏
Function AutoExec()
On Error GoTo AutoExec_Err
DoCmd.OutputTo acOutputQuery, "Performance Interval Data", "ExcelWorkbook(*.xlsx)", _
"
浏览 1提问于2018-05-18得票数 0
我从SAP服务器上创建了一些数据，它发送给我一个Excel-2013文件，然后我将这个Excel文件导入Access-2013以供进一步处理。
我在导入数据的VBA代码中找到了字符串，如下所示：
DoCmd.TransferSpreadsheet acImport，"Ttable"，fileName，True，"abclist$"
access中的表名为Ttable，excel电子表格命名为abclist。
到目前为止，这一进程一直运作良好。然而，最近数据量已经增加到超过104万个raws (这似乎是raws excel在一个电子表格中可以处理的最大数量)，然后
浏览 0提问于2021-02-12得票数 0
我有一个.xlsm文件，它在一个新的电子表格中从5个Access数据库表中编译条目，然后打开Access，并运行几个查询来更新主表(我知道，DBs的架构非常糟糕……)下面的代码(有时)会出现问题，
Dim accessApp
Set accessApp = CreateObject("Access.Application")
accessApp.UserControl = True
accessApp.OpenCurrentDatabase ("G:\Dir1\Dir2\Processing Database.accdb")
DoCmd.SetWarnings
浏览 4提问于2015-07-30得票数 1
回答已采纳
1回答
我在access中有一个vba函数，它运行一些SQL命令，最后将其中一个表导出到excel中。我想知道是否有一种方法可以在导出时将宏保存在excel电子表格中？我发布了下面这行代码来导出表：
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "PDFVerified", "Rev-H"
浏览 2提问于2014-12-06得票数 0
我要求插入一个额外的数据字段(这将是将excel数据导入access的日期)以及原始导入excel数据到access表中。
下面是将excel数据导入access的代码。有谁能告诉我，在docmd之后，要将当前的日期和原始的excel数据一起插入到access表中，需要编写哪些代码？转移电子表格。
Dim objXL As New Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Object
'objXL.Visible = True
Set wkb = objXL.Workbooks.Op
浏览 7提问于2014-02-20得票数 0
2回答
我有一个Access数据库，需要从excel电子表格每月更新。电子表格有不匹配数据库表的有意义的列标题。此外，我需要检查数据是要合并还是追加。因此，我希望从电子表格中获得一个数据集，我可以循环使用该数据集，并让我的代码决定如何处理这些数据。我可以在Access中创建一个与电子表格结构完全匹配的临时表，用DoCmd.TransferSpreadsheet acImport填充这个表，然后删除它。
这是最简单的方法，还是我可以这样做：
strQuery = "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" _
& Chr(34)
浏览 2提问于2013-08-15得票数 0
回答已采纳
当用户单击按钮(通过使用VBA)时，我成功地在access表中导入了excel工作表：
DoCmd.TransferSpreadsheet [Transfer Type], [Spreadsheet Type], [Table Name], [File Name], [Has Field Names], [Range]
我想知道是否有可能在包含更多字段的access表中导入excel数据，以及是否有可能在将excel数据插入到access表中之前对其进行处理。
浏览 5提问于2012-09-03得票数 0
1回答
我对这件事很陌生，所以希望我们的人能帮我。
设置：I有一个Access 2007数据库，该数据库导入数据，然后执行一组查询并每月导出结果。
每月数据被保存为Excel电子表格或“当前”文件夹中的文本文件。我为每个文件保存了相当繁琐的导入步骤，以便于在Access中将它们添加为表的过程。
有很多文件要导入，所以我编写了一个简单的VBA代码来一次运行所有保存的导入。
Public Sub DatabaseImp()
DoCmd.RunSavedImportExport "Import-Excel1"
DoCmd.RunSavedImportExport "Import-Ex
浏览 0提问于2013-06-10得票数 0
回答已采纳
下面的代码将允许我选择一个特定的电子表格并将其导入到我的表中。我遇到的问题是，总共有4个选项卡(包含所有相同的列标题，只是不同类型的数据)。
是否可以通过一个导入将每个选项卡中的数据导入到我的表中(总共有4个选项卡)？
模块：
Function selectFile()
Dim fd As FileDialog, fileName As String
On Error GoTo ErrorHandler
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = Fa
浏览 0提问于2018-03-12得票数 1
回答已采纳
我只是在尝试将电子表格导入Access 2000中的表中。
电子表格称为cc-ledgcodebalances.xls，没有字段名。
我的代码是
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "tmptmp", VFileName, 0
这似乎曾经起过作用，但从那以后我就明白了；
的Microsoft数据库引擎找不到对象‘cc-分类帐’$‘。确保该对象存在，并确保正确拼写其名称和路径名。3011
谷歌搜索并没有真正显示出多少有用的东西。我试图导入整个东西，但我不认为这与命名范围有关。
有点困惑，有帮助
浏览 3提问于2010-10-22得票数 0
当我使用DoCmd.TransferSpreadsheet方法从Excel电子表格导入数据时，我不知道如何覆盖Access中的当前表。下面的代码将导入的数据附加到table1，而我想用导入的数据覆盖它。
Sub AccImport()
Dim s As Long: s = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Dim acc As New Access.Application
acc.Visible =
浏览 0提问于2014-12-06得票数 1
回答已采纳
在将数据从Excel导入到Access时，我遇到一些导入错误。
我使用DoCmd.TransferSpreadsheet acImport, ...方法进行导入。
失败的数据列包含纯数字条目和字符串的混合。导入失败的是字符串条目。
是否可以对Excel电子表格的这一列中的数据执行某些操作，以确保整个Access都可以访问它？
浏览 22提问于2013-04-11得票数 0
在Access中通过VBA导入文件(例如excel电子表格)时，是否可以使用通配符？
我有以下代码：
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table", "C:\Files\Process A\1.Input\*.XLSX", True
在上面的文件夹中总是只有一个文件，但是每天都有不同的名称，所以我需要一些通配符。
有没有办法做到这一点？
谢谢你，维特
浏览 2提问于2017-02-22得票数 0
回答已采纳
我使用以下代码将Excel电子表格导入access数据库： Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "path_to_db"
appAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "my_db_table_name", "path_to_excel_f
浏览 10提问于2020-04-03得票数 2
回答已采纳
我想导入一个电子表格到access数据库，列有年龄1-89加上另一个说90+，这反过来创建一个导入错误。使用DoCmd.TransferText，是否可以导入所有内容，因为它将90+包含在所有其他数字的列中？
浏览 1提问于2017-03-02得票数 1
我添加了DoCmd.Close acQuery, "Import", acSaveNo
而且我的访问窗口不会关闭，即使有这行代码。
Option Compare Database
Option Explicit
Public Function Import()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim intFile As Integer
Dim strFilePath As String
Dim intCount As Integer
Dim strHold
strFilePath = "C:\Tran
浏览 24提问于2017-01-13得票数 0
回答已采纳
我在Access中有一个VBA代码节，它使用表单上的输入运行查询(一个输入用于查询，另一个用于保存文件名)。由于某种原因，我收到了一个无效的文件路径错误，但我可以断定该路径是合法的。为什么我会得到这个错误？FileName是要从表单中保存的电子表格的所需名称。这是我从access中获得的错误信息：
Private Sub AllPaybacks_Click()
Dim getFolder As Object
Dim sLoc As String
Dim fileN As String
Set getFolder = Application.FileDialog(msoFileDia
浏览 0提问于2020-04-29得票数 0
我试图从一个文本框中获取多个用户名，然后搜索一个数据库，列出用户名可以访问的所有部分，然后将数据导出到Excel电子表格中。一张单张床单会很好，但多张床单就可以了。
我已经设法将数据导出到一个数组中，并将代码导出到Excel电子表格中，但我当时的知识还不足以将这些数据链接到一起，所以它使用SQL语句搜索表来获取每个用户所拥有的访问权限的信息，然后以某种方式将其存储并转储到单个扩展表中，或者每次只将其保存到一个新的电子表格中搜索数据库。
我环顾四周，却看不出我所看到的方式是如何转化成我想要的。我想您必须将SQL结果返回到Array中，然后以某种方式进行转储以获得更好的结果。
我甚至不知道这在vb
浏览 9提问于2016-02-09得票数 0
回答已采纳
我有这样的代码，可以在一个电子表格上工作，而不是另一个电子表格。我只是试图自动将excel数据范围传输到access表，如下所示
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "UsysFastTrack", strFilePath, False, strRange
strFilePath和strRange只是包含完整文件路径(包括工作表名称和扩展名)和工作表中excel范围名称的字符串。这一行会导致错误。
The Microsoft Access database engine could not
浏览 1提问于2015-12-07得票数 0
回答已采纳
请检查一下下面的代码，因为我看不出为什么命名范围没有被导入。相反，完整的电子表格将进入数据库。
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "EAST OF ENGLAND", fle.Path, True, "Tasking Records!A:V"
浏览 1提问于2014-05-06得票数 0
1回答
我有一段代码，它在数据库打开时导入电子表格。最初，我在中编写了电子表格的路径，但当电子表格版本发生变化时，该路径可能会发生变化。最新的路径现在存储在全局参数表中。我不能让代码与变量一起工作，也许我在做一些愚蠢的事情，我不知道，我是VB/VBA的新手。
Function Import_Menu()
Dim db As DAO.Database
Set db = CurrentDb
Dim mpath As String
mpath = DLookup("MenuPath", "Global", "ID = 1")
On Error Resume
浏览 2提问于2013-08-02得票数 0
我正在开发一个模块，用于自动将Excel工作表导入Access表。进口的工作表的设计是相同的。使用DoCmd.TransferSpreadsheets导入列AD(文本和数字数据的混合)，但是P列的值存在问题.
列P和Q用R表示开始和结束的里程。例如，在工作表车辆上，OHS-11报告为从154952开始，以155636结束，其运行距离为684。导入的记录显示为开始和结束于155636，经过的距离为0。
列S完全拒绝导入。AB列为所有记录(包括具有合法值的记录(即null) )导入0。列AC-AD偶尔导入0，但许多记录是空白的。见下图：
我试过没有结果：
设置Access中的字段类型
浏览 1提问于2018-04-17得票数 1
我只是想知道通过VBA将数据从文本文件导入到Microsoft表的最快方法是什么。
据我所知，有三种方法。
使用docmd.transfertext方法上载整个文件。如果有任何错误，请稍后处理。
使用“行输入”语句逐行读取文本，然后使用recordset.add method逐行添加记录。
设置新的Excel.application对象，通过excel打开文件，重新格式化，然后保存为临时电子表格。使用Docmd.transferspreadsheet方法上载到表
有没有其他更好的方式来上传文本到MS Access？
最快的方法是什么？
浏览 0提问于2018-10-11得票数 1
回答已采纳
1回答
我在VBA中定义了一个函数如下：
Function IsInWeek(RefDate As Date, checkDate As Date) As Boolean
StartDate = StartOfWeek(RefDate)
EndDte = EndOfWeek(RefDate)
If (checkDate >= StartDate And checkDate < Enddate) Then
IsInWeek = True
Else
IsInWeek = False
End If
End Function
我想在报告的fil
浏览 1提问于2014-06-22得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
