Tag: access vba

使用Excel VBA将数据导出到MS Access表: 我目前使用下面的代码从工作表导出到MS Access数据库的数据，代码循环每一行，并插入数据到MS Access表。 Public Sub TransData() Application.ScreenUpdating = False Application.EnableAnimations = False Application.EnableEvents = False Application.DisplayAlerts = False ActiveWorkbook.Worksheets("Folio_Data_original").Activate Call MakeConnection("fdMasterTemp") For i = 1 To rcount – 1 rs.AddNew rs.Fields("fdName") = Cells(i + 1, 1).Value rs.Fields("fdDate") = Cells(i + 1, 2).Value rs.Update Next i Call CloseConnection Application.ScreenUpdating = True Application.EnableAnimations = True Application.EnableEvents = […]

如何使用Access / VBA复制到剪贴板？: 在Access2003 / 2007中使用VBA。如何将stringvariables的内容复制到剪贴板？该站点build议创build一个零长度的TextBox，将该string复制到TextBox，然后运行DoCmd.RunCommand acCmdCopy 。啊。我的意思是，我们可能会走下去的路线。但仍然。啊。虽然MS知识库文章向我们展示了如何做，但涉及到许多Windows API调用。育。这是唯一的两个select吗？

如何在Access 2007 VBA中显示“打开文件”对话框？: 如何在Access 2007 VBA中显示打开的文件（或文件select）对话框？我已经尝试使用Application.GetOpenFileName，因为我会在Excel中，但此function不存在于Access中。

VBA：在两种方式中声明一个新对象的区别？（试图了解我的解决scheme为什么工作）: 我在一个循环内创build一个新的对象，并将该对象添加到一个集合中; 但是当我读回集合后，它总是完全填充了我添加的最后一个对象。我提出了两种解决方法，但我不明白为什么我的初始实现是错误的。原版的： Dim oItem As Variant Dim sOutput As String Dim i As Integer Dim oCollection As New Collection For i = 0 To 10 Dim oMatch As New clsMatch oMatch.setLineNumber i oCollection.Add oMatch Next For Each oItem In oCollection sOutput = sOutput & "[" & oItem.lineNumber & "]" Next MsgBox sOutput 这导致每行的数字是10; […]

是否需要在VBA函数中将对象设置为Nothing: 我总是读到，一旦我完成了它，build议将对象设置为无。但是我通常只在表单里面使用它们。当函数作用域保留时，是不是引用丢失和内存释放，而不pipe将对象设置为Nothing？即真的有必要这样做： Set db = Nothing Set record_set = Nothing

如何在Outlook中添加默认签名: 我在Access中编写VBA脚本，创build并自动填充几十封电子邮件。到目前为止，这一直是顺利的编码，但我是新的Outlook。创buildmailitem对象后，如何将默认签名添加到电子邮件？这将是创build新电子邮件时自动添加的默认签名。理想情况下，我想只使用ObjMail.GetDefaultSignature ，但我找不到像这样的东西。目前，我正在使用下面的函数（在互联网上的其他地方），并引用了htm文件的确切path和文件名。但是这将会被几个人使用，并且他们的默认htm签名文件可能会有不同的名字。所以这个工作，但它不是理想的： Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function （用getboiler(SigString = "C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\Signatures\Mysig.txt")调用getboiler(SigString = "C:\Users\" & Environ("username") […]

DoCmd.SetWarnings和CurrentDB.Execute之间有什么区别？: 在这个答案的评论中，雷穆写道 CurrentDB.Execute "insert sql here" 比…更好 DoCmd.SetWarnings = 0 DoCmd.RunSQL "insert sql here" 由于Access产生的内置警告。我试图了解其中的差异。如果他们都掩盖了错误，为什么第一个比第二个好？这里有最佳做法吗？