Tag: 访问

将.xls文件导入到Access 365中: 我有各种.xls文件，我无法在Excel中打开，因为它们太大了。我一直在尝试将它们导入到Access 365中，但得到错误，即Access无法访问文件中的信息。今天早上我一直在阅读几个论坛的build议，但唯一的build议是不可行的，因为他们需要打开文件并保存在.xlsx，我不能这样做，因为如上所述，我无法打开文件。任何意见，将不胜感激。

从Excel导入数据到MS Access: 我有一个有一些数据的excel文件，我需要使用VBA将所有的数据导入到MS Access中，然后在其上运行一个查询，最后在报告中显示数据。这怎么能成为现实呢？

从Excel导入访问: 我有一些VBA代码的麻烦，应该将Excel数据导入到我的访问数据库。当我运行代码，我得到一个运行时错误“运行时错误1004应用程序定义或对象定义的错误”。 With wks 'arrêter l'importation lorsque l'on rencontre une case vide While .Range(A & i).Value <> "" '(où pKeyCol représente la colonne et i la ligne) If (cnt = 10) Then 'pour éviter les messages lors de l'ajout des enregistrements DoCmd.SetWarnings False End If 'condition de remplissage de la table => eviter les doublons […]

访问VBA将基于查询的数据导出到预先devise为接受导出数据的xlsx模板中: 目前，我们能够在Access中build立报告。但是，他们希望在Excel中创build相同的报告。这些报告是规范的，需要根据规范进行devise。我devise了Excel模板（工作簿），其中一个选项卡具有报告，另一个选项卡具有数据。期望的结果：用户将点击一个button导出数据。打开预devise的Excel模板，填写数据标签，将具有特定名称的Excel文件保存在预定义的目录中，在报告选项卡上查看报告。下面是我迄今为止所构build的，只能创build一个不使用预先devise的Excel模板的新文件。其实这个代码现在不行任何build议或指导将不胜感激。 🙂 Private Sub Button_ExhP2_XLSX_Click() DoCmd.SetWarnings False Set db = CurrentDb Dim mysql As String Set fso = CreateObject("Scripting.FileSystemObject") 'Create filepath for data to be saved in Const xlsxPath = "\\Path\Access dBase\O-Blank Exhibits\" 'Create Filname used to save data to excel FileName = "BlankPart2 " & [Forms]![Frm_Main]![Frm_Main_ListBox_BU] […]

将文件导入到通过名称为通配符的VBA进行访问: 有没有反正我可以使用通配符导入文件（例如Excel电子表格）通过在Access中的VBA？我有以下代码： DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table", "C:\Files\Process A\1.Input\*.XLSX", True 在上面的文件夹中总是只有一个文件，但每天都有不同的名称，所以我需要某种通配符。有没有办法呢？谢谢，Vítor

通过Access VBA在Excel中添加格式条件: 所以目前我在我的代码中得到了这些行， .Range("C2").Formula = "=IF(B2 = """"," & """REQUIRED""" & "," & """""" & ") " .Range("C3").Formula = "=IF(B3 = """"," & """REQUIRED""" & "," & """""" & ") " 我的目标是添加一个条件格式，所以如果它等于需要从范围= $ C $ 2：$ C $ 3转背景红到目前为止我看到一些代码在线，但没有一个似乎适用。我修改了一些现有的代码为我的目的，我得到xlExpression“variables未定义”的错误。谁能帮我？ .Range("C2:C3").Selection.FormatConditions.Delete .Range("C2:C3").Selection.FormatConditions.Add TYPE:=xlExpression, Formula1:="=(=$C$2:$C$23 = 'REQUIRED')"

recursion保存 – 抛出错误: 我正在编写一个recursion的VBA脚本，并从目录中获取所有单词和excel文件，然后打开并保存为模板，然后closures。一切正在相应的工作，但当我试图closures打开的Excel应用程序时，我得到一个错误“运行时错误'91'：对象variables或未设置块” 代码如下： If ExtFind = "xlsx" Or ExtFind = "xls" Then Debug.Print ("EXCEL FILE FOUND") Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False xlApp.Visible = True xlApp.Workbooks.Open strFile ActiveWorkbook.SaveAs FileName:=saveString, FileFormat:=xlTemplate ActiveWorkbook.Close xlApp.Quit Set xlApp = Nothing End If 错误发生在线上： ActiveWorkbook.SaveAs FileName:=saveString, FileFormat:=xlTemplate 我100％肯定，variablessaveString包含正在从访问表中检索正确的值。代码作为循环的一部分执行。我认为这个问题是关于目前的工作手册，但我不确定。任何帮助将不胜感激。

Excel中的错误/访问外部数据处理？: 我有一个“数据库”设置，我有一个主要的电子表格，其中大部分数据填充 – 这链接到通过链接表访问，然后被拉到另一个辅助电子表格中添加更多的信息（特别是百分比信息）。然后再将这些数据input到通过链接表访问，并再次传递到第三个电子表格中，使用第二个表格中的百分比来计算值。然而，似乎有一个错误的sorting在我怀疑是一个数据types的问题表中的某处。当我在第三级电子表格中“全部刷新”时，所有链接刷新，但是第二个电子表格中的数据馈送有时为0。我可以精确定位一些0.5变为0的确切示例。这会显着影响数据，因为数据显示值“已经丢失”。但是，如果我在第三张表中的数据源，右键单击表，然后单击刷新，值恢复正常 – 这绝对驱使我疯狂，因为它灌输对“系统”的信心不足。这是一个错误？我已经尝试过的事情：将源值格式化为数字或百分比 – 不变在Access SQL中格式化数据 – FORMAT（[Data]，“Number”） – 不变使用Access – 之前，我有通过MS Query直接相互链接的Excel表。

Access vba的Excel小计有什么方法？: 我有一个Access 2010应用程序，我运行SQL查询并将结果输出到Excel。我正在使用Excel小计命令来创build小计。这工作正常，但总行只有文本（“XXX计数”）是粗体和值不粗体。我们的客户希望整个行大胆。我已经尝试了几个方法没有成功。我如何做小计中的整个行？所以这里是我现在有：这是正确的，除了我需要这样的所有行5,8,16和17粗体：这里是我的代码来创buildAccess文件的Excel文件（除了大胆的问题，这所有的作品）： Public Sub ExportToExcel(query) Dim appXL As Object Dim wbk As Object Dim wksNew As Object Set appXL = CreateObject("Excel.Application") Set wbk = appXL.Workbooks.Add Set wksNew = wbk.Worksheets("Sheet1") Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set appXL = CreateObject("Excel.Application") appXL.Visible = True Set wbk = […]