Tag: access vba

将Access交叉表查询链接并导入到Excel中: 有没有我可以使用的代码，我可以导入一个交叉表查询到Excel中，也链接它？目前，这些是我用来从交叉表查询中导入数据的步骤。数据>>导入外部数据>>新build数据库查询>> MS Access数据源* >>浏览到我的数据库>>select交叉表查询名称>>select我想要的数据。我需要链接查询，因为会有额外的信息input。例如，这个月是十一月，我需要把这个月收到的数据input系统。

将多个Excel文件中的一个工作表导入到多个访问表中: 我有大约200个Excel文件，我想导入到一个单一的Access数据库，并为每个文件有一个表。每个Excel文件都有多个工作表，但是我想要导入的文件是一致的。我已经find了一些代码，请参阅： http : //www.accessmvp.com/KDSnell/EXCEL_Import.htm#ImpBrsFldFiles，http : //social.msdn.microsoft.com/Forums/en-US/dfea25ab-cd49- 495℃-8096-e3a7a1484f65 /import-多Excel的文件与-不同的文件名，为存取使用，VBA 这是我尝试的代码片段之一： Option Compare Database Sub ImportFromExcel() End Sub Dim strPathFile As String, strFile As String, strPath As String Dim strTable As String, strBrowseMsg As String Dim blnHasFieldNames As Boolean ' Change this next line to True if the first row in EXCEL worksheet ' has […]

尝试closures使用Access VBA导出的工作簿时出错: 我正在尝试编写代码以使Excelclosures一个电子表格，Access刚刚导出的Access。但是，我一直抛出一个错误，告诉我我的桌子不存在，即使我是直接的IT！非常令人沮丧。所有的帮助，非常感谢。谢谢。 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 Object Set xlapp = CreateObject("Excel.Application") Set wb = xlapp.workbooks.Open(xlFileName) 'Delete Existing File First; then create new On Error Resume Next Kill xlFileName On Error GoTo 0 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, […]

如何在Excel中使用Excel的（2007）趋势function？: 在Access中使用Excel的趋势function有一个快速的方法吗？具体而言，我想使用Access数据库中的值来将值输出24个月。我也想用新列中计算的值更新数据库/表。我是一个noob。

如何在Excel中设置IMEX = 1: 我正在使用操作系统Windows 7和Office 2010以及SQL Server 2008 / 2008R2 / 2012。我正在尝试导入Excel表格到SQL Server。一列有几个数值和文本值。从Excel中导入数据时，数值不会被导入。 Excel表格的第一行有标题。许多博客build议更新IMEX = 1。但我无法findIMEX值如何以及在哪里设置为1.请帮助

如何在使用DoCmd.TransferSpreadsheet方法从电子表格导入数据时在Access中覆盖表格？: 我不知道如何使用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 = True acc.OpenCurrentDatabase "F:\dbs\myDB.accdb" acc.DoCmd.TransferSpreadsheet _ TransferType:=acImport, _ SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _ TableName:="table1", _ Filename:=Application.ActiveWorkbook.FullName, _ HasFieldNames:=True, _ Range:="Sheet1$A1:P" & s acc.CloseCurrentDatabase acc.Quit Set acc = Nothing End Sub

Excel进程不closures，代码每隔一秒执行一次: 我有一些命令button，通过发送访问表到Excel电子表格，并进行一些格式化，并在其中input一些公式。其他的命令button可以工作，但是这个在LastRowInventory行。我相信它与oBook但我不知道如何解决这个问题。我认为它是因为它试图得到它已经得到的一个对象。它每两秒钟顺利运行，但不closuresexcel进程。我在过去几个小时内解决这个问题的尝试没有奏效。我得到的错误如下： Run-time error '462': The remote server machine does not exist or is unavailable 任何帮助表示赞赏。我相信这是一个简单的解决办法，但不能完全明白，我对编程相当陌生。代码如下。 Private Sub INVENTORYLIST_Click() DTable = InputBox("Input Table Name") '****************************TRANSFER TO EXCEL******************************** Dim strWorksheetPathTable As String strWorksheetPathTable = "O:\GData\Downstream_LNG\Data Mgmt\CEDA\Reports\" & DTable & "\" & DTable & ".xls" DoCmd.TransferSpreadsheet transfertype:=acExport, _ spreadsheettype:=acSpreadsheetTypeExcel12, _ […]

数据types在标准expression式二进制到整数VBA中不匹配: 我正在写一个Excelmacros，它与现有的Access数据库一起工作。我运行的几个查询将需要从用户input他们从表中删除哪些用户，但看到的数字将是相同的，每次我宁愿在macros的开始捕获一次，并使用该variables在我的SQL语句。这个数字是一年中的一个季度数字。所以它可能是1,2,3或4我可以从用户那里捕获好，但是当我尝试在SQL语句中使用该variables时，出现“数据types不符合标准错误” 这是我想要的： Dim Qrtnum As Integer Qrtnum = Application.InputBox("Enter Quarter to Sample") sql1 = "DELETE SampledEmailAddressesByQuarter.*, SampledEmailAddressesByQuarter.Quarter FROM SampledEmailAddressesByQuarter WHERE SampledEmailAddressesByQuarter.Quarter = " appAccess.DoCmd.RunSQL sql1 & Qrtnum 现在在我的数据库表中的数据types被列为“二进制”，我想通过一个Intvariables到我的SQL，这可能是问题吗？或者是我有一个Int与我的SQLstring连接的事实？任何帮助，将不胜感激。

参考当前的Excel文件/工作表: 我在Access窗体上创build了一个向导button，您可以将Query的数据传输到一个新的Excel文件，然后新的文件将自动打开。有没有办法引用这个新的文件或工作表，因为我想把东西放在这个新的文件。

Worksheet.copy（）失败_only_工作簿中的一个工作表: 我正在运行Access 2010中打开Excel 2010工作簿（“主”）的VBA代码，然后将指定工作表从“主”复制到“客户”工作簿。这一直工作得很好，直到我得到一个特定的工作表，我得到：运行时错误“1004”：Worksheet类的复制方法失败代码行是： XLMaster.Sheets(SlideRS.Fields(2).Value).Copy _ After:=XLClinic.Sheets(XLClinic.Sheets.Count) 在这个特定的例子中，这是第二张被复制的代码，所以这个代码第一次工作。这是一个很长的debugging过程的一部分，这行代码对于来自同一个“主”工作簿的十几个其他工作表非常有用。奇怪的是，当我尝试手动执行时，复制也失败了。我打开了“Master”，右键单击失败的特定工作表，然后尝试复制它，但是只是没有做到。我可以手动复制工作簿中的其他工作表就好了。唯一的区别是我可以识别的是这个特定的工作表上有2个数据透视图。其他工作表复制OK只有数据，图表（不同types），甚至透视图和常规图表。这是唯一只有数据透视图而不是“常规”图表的图表。不知道这是否是原因，但这是唯一可以识别的可能是不同的。为了更好的上下文，代码行来自这个循环： While Not SlideRS.EOF If SlideRS.Fields(1) <> SlideRS.Fields(2) Then 'the worksheet depends on something else, copy it first 'if the depended upon slide is not in the list of UsedSlides, then add it If InStr(1, UsedSlides, SlideRS.Fields(2)) […]