Tag: ms access

VBA：如何判断VBA中的数字是双精度还是整数？: 我有一个数字，可以是一个整数（2或3.0或4.0）或双（2.2或3.2）。我试图使用下面的代码： Dim isInteger as Boolean isInteger = (myNumber Mod 1 = 0) Debug.Print (isInteger) If isInteger then … … Else … … End If 但是，即使myNumber类似于2.3，输出也总是为True。我应该如何解决这个问题？

获取访问vba中的excel文件的行的结尾: 我使用以下方式将excel文件导入到使用vba（dao）的访问中： Set db = CurrentDb query = "SELECT DISTINCT * INTO MyTable" _ & " FROM [Excel 12.0 Xml;HDR=Yes;Database=" & filePath & "].[Sheet1$];" db.Execute (query) [Sheet1$]是这里的关键字。我的excel表头从第3行开始。我想要做一些类似于[Sheet1$A3:Lastline] 。有没有简单的方法来获取最后一行？或者我真的需要创build一个VBA Excel对象，打开文件并计数？或者，我可以更改标题开始？例如，通过使用自定义导入scheme呢？提前致谢。

访问 – 计算字段（运行平均值）: 我正在尝试生成一个Access数据库，其中包含当前在Excel中无限制的表格和表格中的信息。我想知道是否有任何方法可以添加一个字段到一个表，这是一个计算（平均值）基于其他几个单元格。我需要计算每月包含1个值的另一个字段的运行6个月的平均值。希望以前的图像显示我的意思。将此function导入访问的最佳方法是什么？

如何堆积excel行到列: 我有一个数据[有关世界发展指标的数据]，它有以下几种格式，有没有什么办法可以按照以下格式安排大数据集。 Country 1990 1991 1992 1993 1994 1995 Albania 639 349 218 381 619 761 Iran 2008 1923 2024 1993 1987 2070 UAE 27989 26946 26864 26141 26496 27974 我期待我的最终数据格式为 Albania 1990 639 Albania 1991 349 Albania 1992 218 Albania 1993 381 Albania 1994 619 Albania 1995 761 Iran 1990 2008 Iran 1991 1923 Iran […]

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

复制并重命名VBA中的Excel ActiveSheet: 我正在生成一个访问命令button，将数据导出到Excel中。目前，我有这个function工作，并试图完善它多一点，每个出口将数据导出到一个新的工作表，这将有效地是一个ActiveSheet的副本。似乎让我失望的代码是： 'Open workbook Excel.Workbooks.Open "\\aos03s-fp04\brewsti2$\Alarms\ExportTest – " & Format(Now(), "dd-mm-yyyy") & ".xlsx", True, False 'Copy initial activesheet ActiveSheet.Copy Before:=Excel.Sheets("Sheet2") 'Rename new copied sheet ActiveSheet.Name = Me.RAW_TAG 该代码在ActiveSheet.Copy函数上失败。有任何想法吗？

将Excel / Access数据转换为记事本: 所以这就是我想要做的我在联络中心工作，在那里我们收集信息并需要采取行动。为了执行这个行动，我们必须发送细节给其他工作人员。要做到这一点 – 我想要的是，我可以在Excel或Access中收集信息，如下所示：我有以下Excel电子表格：现在当我按下button，我想它被转换成这样的记事本：我只是想知道这是否可能？

从MS Excel的MS Access文件之间的链接表: 如何在MS Access * .accdb文件中创build一个表链接，链接到MS Access * .accdb文件中的另一个表，但是从MS Excel * .xlsx文件中的VBA代码链接。 Database1在file1中 Database2在file2中 Excel中的VBA代码在file3中执行file3中的代码以将file2的表链接到file1，以便在file1中显示为链接表。细节：我有一个复杂的脚本，创build一个大型的表格，并基于MS Exceldevise连接映射，因为它更方便用户deviseMS Excel表格。一切工作到目前为止，但我需要最后一步，LINK原始表。在MS Access中，我会这样做 DoCmd.TransferDatabase TransferType:=acLink, _ DatabaseType:="Microsoft Access", _ DatabaseName:=SRC_FILE_PATH, _ ObjectType:=acTable, _ Source:=SRC_TABLE_NAME, _ Destination:=DESTINATION_TABLE_NAME 但是由于我在Excel中执行VBA代码，只能通过DAO.Database对象使用连接到数据库，这个命令不起作用。

excel vba访问不会closures此代码: 您好我几分钟前张贴和somone asnwerd关于excel不closures的问题。我正在使用访问来打开工作表并添加一个表。 Excel将不会closures导致问题的道路，因为当我在另一个函数中再次获得Excel对象时，我正在使用的工作表将不会打开，也不会格式化。这是我的代码。我以为我在这里是明确的，但也许我不是。 Excel只是不会closures。 Public Function BrooksFormatTableBrooks() Dim xlApp As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet bfile = "S:\_Reports\Brooks\Tyco-Brooks Receiving Tracking MASTER – " MyFileName = bfile & Format(Date, "mm-dd-yyyy") & ".xls" On Error Resume Next Set xlApp = CreateObject("Excel.Application") On Error GoTo 0 Set wb = xlApp.Workbooks.Open(MyFileName) Set […]

如何将庞大的数据从sql server导出到excel文件: 我想从SQL Serverpipe理工作室导出大量的数据（大约5百万行2列）到Excel文件，但最大的Excel文件大小约为1400000行我尝试导入和导出向导，但它不能正常工作，它返回60000条logging，然后发生错误：当我select目标文件，我应该使用Excel版本之一，如果我select“Microsoft Excel 2007”的消息出现（“Microsoft.ACE.OLEDB.12.0”提供程序未在本地计算机上注册（System.Date））所以我select了“Microsoft Excel 97-2003” 我想导出数据到Excel或访问。有什么build议？