Tag: ms access

VBA AddressOf崩溃办公室应用程序

我想运行一个简单的代码片段，但加载Access和Excel崩溃。 我正在运行CallbackTest2，请你帮我。 谢谢分配。 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) _ As Long Sub CallbackTest2() CallWindowProc AddressOf CallbackMsg, 0, 0, 0, 0 End Sub Public Function CallbackMsg _ (msg […]

使用IFF语句将SQL查询写入VBA，获取缺less的expression式错误

我一直在试图弄清楚这几天，没有任何运气。 我正在尝试在VBA中编写SQL行命令。 我得到“ORA-00936：mison expresson错误” strSql4 = "SELECT FWLOTID, ENDDATETIME, ENDCODE, DRAW, IIF([ENDCODE]=""6"", ""MSNAG"",""0"") " ' Or ENDCODE='10' Or ENDCODE='11' Or ENDCODE='12' Or ENDCODE='14'" strSql3 = "FROM EVENTS.ODSWIND WHERE ENDDATETIME > to_date('" & Format(dtEndDate, "MM/dd/yyyy") & "','MM/DD/YYYY') " On Error Resume Next rsPRC.Close On Error GoTo ErrorHandler rsPRC.CursorLocation = adUseClient rsPRC.CursorType = adOpenStatic rsPRC.LockType = adLockOptimistic […]

vba错误：对象variables或块variables未设置

运行以下代码时出现“对象variables或块variables未设置”错误消息。 它在Access中，并引用一个Excel电子表格。 代码有什么问题？ wsTest.Range("A11").Activate Do Until IsEmpty(ActiveCell) intX = intX + wsTest.Cells(ActiveCell.Row, "L") 'error occurs on this line intY = intY + wsTest.Cells(ActiveCell.Row, "I") ActiveCell.Offset(1, 0).Select ' Step down 1 row to the next cell. Loop 代码第一次运行，没有错误，只有第二次。 closures并重新打开Access“修复”问题。 这怎么可能与这个代码有关？

如何使用VBA在Excel中添加新工作表？

我是VBA编码的新手。 我想用不同的数据填充Excel工作表。 要求是将数据放入同一个Excel的单独表单中。 我需要使用下面相同types的代码来维护整个代码的完整性。 outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls" DoCmd.OutputTo acOutputQuery, "**MoActiveDirectoryData**", acFormatXLS, outfile, False 我能够从一个查看/查询MoActiveDirectoryData到一张表。 我应该如何去从另一个视图/查询获取数据到同一个Excel的另一张表？

当我在excel（dd / mm / yyyy）中导入date格式到msaccess时，它显示非date值

当我以date格式（dd / mm / yyyy）导入excel文件来访问它时，显示非date值是什么问题。 例如：27/3/2012到33765这里33765是一个非date值

Excel VBA运行和导出访问查询

我有以下代码从Excel启动Access数据库中的一系列查询。 当这些查询在Access中自行运行时，它们工作正常并成功生成正确的文件，但是当我使用button单击将macros转换为在Excel中运行时，遇到了一些问题。 看到我的代码如下： Sub AccessImport() Dim acApp As Object Dim MyDatabase As String Dim question As String question = MsgBox(Prompt:="Are you sure you want to complete this action? Running this process is lengthy and could take a couple minutes to complete.", Buttons:=vbYesNo, Title:="Run SOD Matrix") If question = vbYes Then MyDatabase = "directory string" OutputFile […]

我有太多的MS Access的数据。 我怎样才能使用这些数据？

我有4个不同的Excel表格。 如果我将它们全部导入到Access中，则会出现与Access的最大2千兆字节有关的错误。 我可以将4个表格作为链接表格导入。 但是我不能一次打开它们，因为我再次遇到同样的错误。 我已经尝试创build一个联合查询如下所示，但我也遇到同样的问题。 Select * from table1 union all select * from table2 union all select * from table3 union all select * from table4; 我真的不知所措。 基本上，这4个表与季度销售数据相关，我希望能够根据年份（在Excel或Access中）创build数据透视表。 我可以将4个表合并成1个excel文件，但是当试图创build一个数据透视表时，我得到一个错误，说我的电脑上没有足够的内存。 我有什么select查看这些数据？

允许访问用户selectExcel工作表进行链接

所以我在Access中使用VBA创buildExcel和Access之间的链接表。 足够简单，一些在线资源引导我，我决定使用TransferSpreadsheet命令。 所以我跑了一些代码来testing，如果我有正确的语法，并得到这个 DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, _ "Link Name", "File Path", True, "Sheet Name!" 所以这个工作完美，但我想自动化，所以不明白如何编码的人可以使用该function。 所以对于文件path，我设置了一个文件对话框，用户可以selectexcel文件。 再次工作很好。 所以现在到了这一步，我想创build一个对话框让用户selectexcel工作表链接以及。 所以基本上用户将首先selectexcel文件，然后从下拉框中select他们要链接的工作表。 这可能吗？ 如果是的话，我将如何去做。 这是我的代码到目前为止： Public Sub linksheet() Dim fd As FileDialog Dim strpath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = "Select Routing File" 'get the number of the button chosen Dim FileChosen As […]

从Access中将Excel窗口引入前台

我试图从Access中打开一个Excel文件，但它确实工作，但是Excel窗口在后台popup（在Access窗口后面），这不是非常用户友好的。 这是我使用的代码： Private Function OpenExcelAttachment() Dim MyXL As Object Set MyXL = CreateObject("Excel.Application") With MyXL Dim FullPath As String, Name As String Name = "\ExcelFile.xlsx" FullPath = CurrentProject.Path & Name .Workbooks.Open FullPath .Visible = True End With 我如何使Excel窗口出现在前台（在所有打开的窗口顶部）？ 谢谢！

MS Access 2010，Excel 2010，Windows Server 2008 R2 64位：工作簿类的SaveAs方法失败

使用的服务：MS Access 2010，Excel 2010，Windows Server 2008 R2（64位） 在我们的MS Access数据库中，我们编写了一个将查询导出为.xlsx格式并将其保存在networking驱动器上的进程。 它使用这个语法： objxl.ActiveWorkbook.SaveAs filename, FileFormat:=xlOpenXMLWorkbook 和 xlWBk.SaveAs filename, FileFormat:=xlOpenXMLWorkbook 其中objxl被声明为： Private objxl As Object 并通过以下方式打开文件： Dim xlWBk As Object If objxl Is Nothing Then Set objxl = CreateObject("Excel.Application") End If If Dir(sourceFile) = vbNullString Then Set xlWBk = objxl.Workbooks.Add Else Set xlWBk = objxl.Workbooks.Open(sourceFile) blnFileExists = True […]