Tag: ms access 2007

将多个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。

如何计算一年中的某一天是在哪一天？: 我已经find了很多function来确定某一天的某一天是哪一天： Function Yearday(dat As Date) As Integer 'Purpose: does the same as day for month 'Use to access an array where the index corresponds to days Yearday = DateDiff("d", CDate("1/1/" & Year(dat)), dat) + 1 End Function 但我还没有find任何function来确定date，基于特定年份的一天。函数签名看起来像这样： Function getDateBasedOnYearAndDayOfYear(year As Integer, dayOfYear As Integer) AS Date

Access + VBA + SQL – 如何将多个查询导出到一个Excel工作簿中，但是，使用表格中的条件的多个工作表: 我需要一些帮助导出多个查询到一个Excel工作簿，但是，多个工作表？使用MS Access VBA中的表中的条件附有数据库供参考。表名：Tbl_Final（列如下）系统用户名用户types 状态工作职位基于表“Tbl_Final”（下面的SQL查询）中的“System”列中的唯一值，我需要创buildINDIVIDUAL excel文件并将其导出到文件夹。示例：SELECT TBL_FINAL.System，TBL_FINAL。[User ID]，TBL_FINAL。[User Type]，TBL_FINAL.Status，TBL_FINAL。[Job Position] FROM TBL_FINAL WHERE（（（（（TBL_FINAL.System）=“OS / 400”））; SELECT TBL_FINAL.System, TBL_FINAL.[User ID], TBL_FINAL.[User Type], TBL_FINAL.Status, TBL_FINAL.[Job Position] FROM TBL_FINAL WHERE (((TBL_FINAL.System)="Tab")); 谷歌search后，我设法find一个符合标准的代码。但遇到一些障碍:( 请求一些帮助！ ===================================选项比较数据库 Private Sub Command1_Click() Dim strSQL As String Dim dbs As Database Dim qdf As QueryDef […]

SQL / Excel / VBA – UPDATE查询：'语法错误（缺less运算符）在查询expression式': 我有非常简单的查询不工作，我得到的错误： '查询expression式中的语法错误（缺less运算符）Tabela2.SALES2 FROM Tabela2' 这里是代码： UPDATE Tabela1 SET Tabela1.SALES = Tabela2.SALES2 FROM Tabela2 WHERE Tabela1.ID = Tabela2.ID 我想从Acces数据库（2007）上的VBA / Excel运行此查询。其他查询与例如SELECT工作正常，所以问题只是与查询。我真的不知道为什么它不工作。

从Access VBAsearchExcel列 – types不匹配: 我的问题发生在下面一行（错误是types不匹配）： RowNo = xlSheet1.Cells.Find(What:="SummaryType", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row 背景：我正在构build一个数据库，它载入一个文本文件，将其分割成多个不同的部分，合并一些部分以创build新表格，然后将新表格导出为excel并进行一些格式化。我使用“For Each”循环来查看我的访问表。当某些表被识别时，一些其他代码运行创build新的表（代码未显示）。一旦创build了一个新表，就会被导出为excel并进行格式化。这是发生错误的地方。第一个循环工作正常，在第二个循环中，当试图在列A中查找包含“SummaryType”的行时，代码出错。错误是运行时错误13 – types不匹配。码： Dim outputFileName As String Dim xl As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet1 As Excel.Worksheet Dim RptMnth As String Dim RptYear As Long Dim RptName As String outputFileName = "C:\Users\UserID\Desktop\Reports\" & RptName & […]

将Access查询导出到Excel: 我有一个Access 2007数据库，我已经创build了大约15个SQL查询来处理特定数据，我创build了一个使用Access中的菜单的主框架导航菜单，现在我需要使用VBA代码将所有查询提取到Excel，已经设法通过创build一个button并为其指定此代码来执行下面的代码。 Private Sub query1_Click() DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, "Total Users and Sessions", _ "C:\UsersandSessions.xls", , "Total Users & Sessions" End Sub 现在我的问题是，查询被导出到Excel的罚款，但没有任何格式的应用程序完成，我想添加一些格式，至less在标题和可能在电子表格中的标题和一个我不太喜欢的是所有的logging都是从第一个单元格开始的。另外我更喜欢如果我再次在Access中按下该button，Excel电子表格已经存在与该查询输出，然后再次单击时，它会再次写入到下一个可用表。任何build议或想法非常受欢迎。

创build表作为select位置 – 使用当前数据库编译错误: 试图创build一个新的表：[PickupDonTbl]通过从表中提取所有logging：[Donation_Data] Pickup Date =当前date。 CREATE TABLE CurrentDb.PickupDonTbl AS SELECT * from Donation_Data WHERE [Pickup Date] = Date() 当我input代码时，我得到CurrentDb“高亮”与编译错误：预期：错误结束。然后我想要将这个表格导出为EXCEL： DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PickupDonTbl", "C:\Users\dads\BlindCtr\Donation Data.xlsx", True （我已经testing了这部分，它的工作原理）所有这些代码都是从这个Db中的一个表单开始的，一个命令button“点击”

如何使用excel对象到vba中的另一个过程: 我需要使用一个excel对象（在程序中设置），在同一个模块中的其他程序。但不能做到这一点。请帮助我做同样的事情。以下是我的代码。 Public Sub FirstProc() 'Here the excel object is defined Set xlApp = CreateObject("Excel.Application") Set xlWorkbook = xlApp.Workbooks.Open(ReportTemplateDirectory\Test.xlsx") xlApp.Visible = True … … 'all work goes here FINE … SecondProc 'calling second proc End Sub 以下是我的第二个程序， Public Sub SecondProc() ' In this procedure i need to delete a sheet of the same […]