Tag: ms access

如何在完全相同的时间戳记中将数据导入到表格中？

我有这个代码从Excel加载数据到我的表中的Access。 我有我的所有表中的[Load_date]的最后一列，并在我的表的devise视图中我使用默认值的函数=Now() 。 我的问题是我的每个表有不同的时间戳相差几秒钟。 我怎样才能更新我的VBA代码来同时导入所有表中的数据？ Sub ImportAllTables_New_Click() Call LoadData("C:\Idea Attributes\tbl_IdeasITAssumptions.xlsm", "TempIdeasITAssumptions", "Qry_IdeasITAssumptions", "Qry_AppendIdeasITAssumptions") Call LoadData("C:\Idea Attributes\tbl_IdeasDependencies.xlsm", "TempIdeasDependencies", "Qry_IdeasDependencies", "Qry_AppendIdeasDependencies") Call LoadData("C:\Idea Attributes\tbl_IdeasImpactedPlan.xlsm", "TempIdeasImpactedPlan", "Qry_IdeasImpactedPlan", "Qry_AppendIdeasImpactedPlan") Call LoadData("C:\Idea Attributes\tbl_IdeasImpactedSubsidiaries.xlsm", "TempIdeasImpactedSubsidiaries", "Qry_IdeasImpactedSubsidiaries", "Qry_AppendIdeasImpactedSubsidiaries") Call LoadData("C:\Idea Attributes\tbl_IdeasLOB.xlsm", "TempIdeasLOB", "Qry_IdeasLOB", "Qry_AppendIdeasLOB") Call LoadData("C:\Idea Attributes\tbl_IdeasPhaseGate.xlsm", "TempIdeasPhaseGate", "Qry_IdeasPhaseGate", "Qry_AppendIdeasPhaseGate") Call LoadData("C:\Idea Attributes\tbl_IdeasDataExtractMain.xlsm", "TempIdeasDataExtractMain", "Qry_IdeasDataExtractMain", "Qry_AppendIdeasDataExtractMain") End Sub Sub LoadData(Filepath As String, […]

Excel来访问导入错误的列

我正在处理大量的历史数据，并且我制作了一个macros来将这些excel电子表格格式化为Access友好的信息。 不过，我将这些excel文件导入到Access时遇到问题。 无论我编码到VBA，Access仍然认为在实际数据的前四个之后有大约30个空白列。 防止这种情况的唯一方法是手动进入并删除列。 出于某种原因，我的VBA代码不会阻止它。 我正在处理很多电子表格，所以手动删除这些列需要花费相当长的时间。 我的代码在下面; 关于如何使Access可以正确解释这些的任何想法？ Public CU_Name As String Sub RegulatorFormat() Dim wks As Worksheet Dim wks2 As Worksheet Dim iCol As Long Dim lastRow As Long Dim Desc As Range Dim lastCol As Long Application.ScreenUpdating = False Worksheets.Select Cells.Select Selection.ClearFormats Call FormulaBeGone ActiveSheet.Cells.Unmerge CU_Name = [B1].Value lastRow = Range("C" & Rows.Count).End(xlUp).Row […]

Excel工作表通过ADODB不一致的行为导出到Access

当我通过ADODB将Excel电子表格导出到Access数据库时，我遇到了一个奇怪的行为。 Office版本是在Win7 64bit上运行的2013 32bit。 这些步骤是： 我创build了一个名为' test.accdb '的新Access文件，只有一个' orders '表和一个' OrderID '字段。 桌子是空的。 我创build了一个新的.csv文件orders.csv 。 稍后我会显示这个文件的内容和最终结果。 我有一个Excel插件与下面的macros： Public Sub updateAccess() Dim con As New ADODB.Connection Dim connectionString As String Dim rs As New ADODB.Recordset Dim sql As String Dim Filename As String Filename = Application.ActiveWorkbook.Path & "\test.accdb" connectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & […]

“DoCmd.TransferSpreadsheet”导出到Excel

我需要导出一个访问表从ACCESS到EXCEL。 有618499行。 我试过简单的方法：右键单击 – 导出 – excel。 它只有当我select格式导出（没有格式创build空白Excel文件），但它不方便，因为我将不得不创build10个文件。 我试图使用这个代码，但它变成了红色，并没有工作： DoCmd.TransferSpreadsheet( [acExport], [acSpreadsheetTypeExcel12Xml], [tab_1], ["C:\Users\admin\Desktop\import_2014\final.xlsx"], [True]) 我应该改变什么呢？ 我应该如何在模块中input 或者，也许你可以提供另一种简单的解决

将Excel导入到Access中，dynamic获取列标题

我目前正在创build一个脚本，将在Microsoft Access中将指定文件夹中的所有Excel表单导入到唯一表中。 现在，这个过程应该是每月或每两个月进行一次，这些excel表格上的标题经常变化。 我试图使用DoCmd.Transferspreadsheet方法，但我遇到的问题是这些字段与目标表不匹配。 现在，我不能只使用适当的字段名称来创build表格，然后导入到表格中，因为正如我所说，excel文件的标题经常变化。 我想要一个方法来导入一个Excel表格到一个新的表格，并且表格应该自动地采用Excel表格的字段，不pipe他们是什么。 所以基本上每次我导入时，都应该使用适当的字段创build一个新表。 我唯一的解决方法是创build一个新的表，每次我导入和循环的Excel文件的第一行查找字段的名称，然后用于创build表。 但是这是一个混乱的解决方法。 我知道有可能使用微软访问用户界面导入一个全新的表格。 这需要点击几下，然后一切都很好。 我想要一个编程解决scheme。 Function loadData() Dim strPathFile As String, strFile As String, strPath As String Dim strTable As String Dim blnHasFieldNames As Boolean ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = True ' Replace […]

从Access vba应用Excel条件格式的过程调用或参数无效

我已经阅读了许多这个代码工作的例子。 然而，当我尝试执行它，这是行不通的，我不明白为什么。 Dim xl As Object Set xl = CreateObject("Excel.Application") xl.Range("G2:G375").FormatConditions.Add Type:=xlExpression, Formula1:="=OR(G2=""New"",G2=""Reintroduced"")" 我得到一个Run-time error '5': Invalid procedure call or argument 。 已经通过定义活动工作表，工作表名称，活动工作簿等来尝试它，并仍然得到这个相同的错误。 我读过的所有东西都说它应该可以工作，但是它不是。 此外，电子表格中的数据在代码中的其他位置打开。 这只是我用作参考的一个例子： 在这里input链接描述

Microsoft Access插入语句从Excel中select数据 – 字段是混合的Int和文本

我正在尝试使用Insert Into查询从Excel文件中select数据并将其插入到Access表中。 我遇到的问题是其中一个Excel列可以是字母，数字或两者兼而有之。 我想select数据作为文本，但我似乎只得到空白的文本和文本/数字条目。 如果我对Excel文件进​​行sorting，以使文本项位于第一行，则将转换所有数据。 我已经尝试了以下内容： strSQL = "INSERT INTO tblImport ([TIMS Company Code]) " & _ "SELECT [TIMS Company Code] " & _ "FROM [Excel 8.0;HDR=YES;DATABASE=" & xlPath & "].[Manual Entry$];" ================================================== ======================= strSQL = "INSERT INTO tblImport ([TIMS Company Code]) " & _ "SELECT CStr([TIMS Company Code]) " & _ "FROM [Excel 8.0;HDR=YES;DATABASE=" […]

将Access表格数据导出到Excel

我在Access 2007中有一个11000行和大约20列的表。 我想创build一个表格button，将表格导出到一个Excel工作表。 代码需要是VBA。 有任何想法吗？

MS访问03 – muliplte“ifs”在更新查询条件的一个字段？

我可以运行更新查询，并在一个字段中运行多个更新，如： “joe doe”更新为334，“barry davis”更新为456等 基本上我想把这个名字转换成数字（在我的情况下，这个数字就是员工ID号），而且我有大约500名员工，所以一次只能有一个是不可能的。 该表是从Excel导入，我不知道如何做这个前导入ethier！ 谢谢你的帮助！

使用VBA，如何在不closures所有工作簿的情况下closuresExcel工作簿？

使用Access VBA，我想打开一个XL文件，做东西，然后closures它，而不closures其他打开的XL文件。 选项1：如果最后一行是“ ObjXL.Application.Quit ”，则closures所有打开的Excel文件，而不仅仅是当前文件。 选项2：如果最后一行是“ ObjXL.Close ”，那么工作簿将closures，但XL的特定实例保持打开状态（即没有工作簿的Excel）。 那么，如何closuresExcel工作簿而不closures其他打开的工作簿呢？ Sub x() Dim ObjXL As Excel.Workbook Set ObjXL = GetObject("C:\Reports\Adhoc Default.xls") ObjXL.Application.Visible = True ObjXL.Windows(1).Visible = True ObjXL.Worksheets(1).Activate DoStuff() ObjXL.Save Option1/2/3? End Sub