Tag: access vba

在Access VBA中存储数组: 我已经在Access VBA中编写了一个子例程，在这里显示以供参考：在Access VBA中的strSQL中循环date 。具体如下： Sub SampleReadCurve() Dim rs As Recordset Dim iRow As Long, iField As Long Dim strSQL As String Dim CurveID As Long Dim MarkRunID As Long Dim MaxOfMarkAsofDate As Date Dim userdate As String CurveID = 15 Dim I As Integer Dim x As Date userdate = InputBox("Please Enter the […]

当不是所有的Excel文件都具有相同的工作表时，将多个Excel文件和工作表导入到Access: 我有一个大约75个Excel文件（.xlsx）的文件夹。 Excel文件应该都有五个命名的工作表（例如： SurveyData ， AmphibianSurveyObservationData ， BirdSurveyObservationData ， PlantObservationData和WildSpeciesObservationData ）。不幸的是，有时Excel文件只有工作表的一个子集（即一个Excel文件可能有全部五个工作表，而另一个只有SurveyData和AmphibianSurveyObservationData工作表）。我想将所有这些Excel文件导入到Access中，并将每个工作表中的信息放入一个单独的表中。例如，我希望将所有Excel文件中SurveyData工作表的所有数据放入名为SurveyData的访问表中。我发现这个VBA代码（见下文），当所有的工作表都出现在Excel文件中时，它似乎工作正常，但是当一个工作表丢失时，脚本停止，并且不会继续导入任何其他文件。有没有办法只导入工作表，如果它存在于Excel文件，否则只是跳过导入？ Function ImportExcelFiles() Dim strFile As String DoCmd.SetWarnings False ' Set file directory for files to be imported strPath = "D:\SpeciesData\MoELoadform\2015SpeciesDetectionLoadforms – Copy\" ' Tell it to import all Excel files from the file directory strFile = Dir(strPath & "*.xls*") ' […]

Object'_Global'的方法'Range'第二次运行失败: 我遇到了一个错误的问题： Object'_Global'的方法'范围'失败当它第二次运行时，在一段代码上。整个程序是通过访问查询从SQL数据库导出信息，并创build源表然后导出到Excel电子表格，源表包含来自14个不同位置的信息。 Excel电子表格因此创build14次（最终通过电子邮件发送给14个不同的人）为了testing代码的目的，我把它放在一个Do While循环来模拟代码不得不运行一次，我几十年来没有做任何编程，所以我非常生疏，代码段失败是： .Cells.EntireRow.EntireColumn.Sort key1:=Range("G2"), order1:=xlDescending, Header:=xlYes 完整代码： Private Function Open_Excel_Spreadsheet() Dim Cnt As Integer 'Counter Cnt = 1 Do While Cnt < 4 Dim oExcel As Excel.Application Dim oBook As Excel.Workbook Dim oSheet As Excel.Worksheet Dim LastRow As Long Dim FirstNewRow As Long Dim i As Integer 'Row counter in […]

在VBA中复制Excel工作簿variables: 假设你有2个Excel.WorkbookvariableswbA和wbB。第一个variables是一个工作簿，你已经分配了类似Excel.Workbooks.Open的东西。现在我的问题：如何将wbA分配给wbB，以便wbB是wbA的副本，而不仅仅是对它的引用？我尝试了一个简单的wbB = wbA但似乎只是将wbB引用到wbA。非常感谢！

将受密码保护的Excel连接到Access: 我想链接一个密码保护的Excel文档到Access – 这是不工作，由于它是密码保护。有没有人有另一种方法来做到这一点？它不得不被密码保护，不能移动到一个安全的文件夹，所以不知道如何做到这一点。有什么build议？

突出重复的值，如何显示在msgbox例如： – 重复单元格值（2）重复3次: 我正在寻找一种在msgbox中显示dynamic值的方法。例如： – 重复单元格值（2）重复3次。这是我在我的代码中写的： 'this function for to highlight duplicates Function FindingDuplicate(rng As Range, counter As Long) As Boolean Dim cell As Range 'For each lopp for getting all cell values For Each cell In rng ' Checking the condition wheather cell value is reapted or not If WorksheetFunction.CountIf(Range(rng(1, 1), cell), cell.Value) > […]

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

如何将excel文件导入访问数据库？: 我想将一张excel文件导入到访问数据库中 Private Sub Commande9_Click() Dim filepath As String filepath = "C:\Users\TXZG6067\Desktop\com.xlsx" DoCmd.TransferSpreadsheet acImport, , "ImportFromExcel", filepath, True End Sub 请帮我，谢谢。

无限循环与target.address: 我正在创build一个小程序，它将查找“当前”表中第I列的更改。如果find更改，则会剪切并将整列粘贴到“完成”工作表的最后一行。看起来，当它切割时，它会陷入一个无限循环，导致它永远不会popup消息框“Made it”。我怎样才能重新certificate这个地址，以避免这个问题呢？ Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim LastRowCompleted As Long LastRowCompleted = Sheets("completed").Cells(Sheets("completed").Rows.Count, "A").End(xlUp).Row LastRowCompleted = LastRowCompleted + 1 'Next row after last row Set KeyCells = Range("I:I") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then MsgBox "Cell " & Target.Address & " has changed." MsgBox Range(Target.Address).Row […]

closures用户从Access-VBA打开的特定Excel文件: 我看到如何做到这一点的版本 Dim ran as Excel.Applcation 但是我使用的Access版本没有Excel.Application作为选项。我写了下面的代码运行，但不closures文件 Dim Path1 as String Dim objXL As Object Dim xlWB As Object Path1 = "C:/….." Set objXL = CreateObject("Excel.Application") Set xlWB = objXL.Workbooks.Open(Path1) xlWB.Close False Set xlWB = Nothing objXL.Quit Set objXL = Nothing