Tag: access vba

在Acccess数据库中search标题: 背景：我需要打开一个Access文件并获取信息，以便与Excel电子表格中的数据进行比较。我正在使用Microsoft Office 15.0 Access数据库引擎对象库而不是Microsoft DAO对象库。问题：尽pipe我可以用下面的代码粘贴所有的数据，但由于某些原因，它会在忽略标题的“第2行”中开始。 Sub Sample() Const PathToDB = "C:\…\AccessFile.accdb" Const TitleSampleTable = "Sample Table" Dim BDSample As Database Dim SampleTable As Recordset Dim SampleTableDef As TableDef Dim CounterTitles As Long Dim CounterRows As Long Dim ColToPasteIn As Long Dim RowToPasteIn As Long Set BDSample = DBEngine.Workspaces(0).OpenDatabase(PathToDB) Set SampleTable = […]

MS Access VBA格式Excel: 嗨，我想格式化我的MS访问macros创build一个Excel电子表格。我想select只有值的行。所以例如，我想select第一行和文本包装它我认为这个逻辑会起作用，但给我错误1004（应用程序定义或对象定义的错误） Dim my_xl_app As Object Dim my_xl_workbook As Object Set my_xl_app = CreateObject("Excel.Application") Set my_xl_workbook = my_xl_app.Workbooks.Open(C:\PATH) For x = 1 To 23 my_xl_workbook.sheets(x).Range("A1",my_xl_workbook.sheets(x).Range("A1").End(xlToright)).WrapText = True Next x my_xl_workbook.Sheets(x).Range("A1", my_xl_workbook.Sheets(x).Range("A1").End(xlToRight)).WrapTex‌t = True是我按下debugging时突出显示的内容提前致谢

从Excel VBA获取MS Access表单的值: 最好的方法是检查访问表单是否打开，并使用Excel VBA获取文本框的值。我的意思是有一种方法来检查如果MS Access应用程序正在运行，如果它然后检查某些表单打开，然后从该窗体的文本框字段中获取值。就像是 If MSAccess.([Application name]).Forms("FormName").isOpen then MyVar = MSAccess.([Application name]).Forms("FormName")![PO Number] end if

以编程方式将SQL Server视图导出到Excel: 我在8个月前提出了这个问题，而我们运行SQL Server 2000的事实似乎是限制因素。我们最近升级到SQL Server 2008，我仍然找不到解决这个问题的可靠解决scheme。我们有一个Access应用程序接口与SQL Server数据库，我们需要find一种方式编程导出给定的视图到Excel电子表格 – 或者至less一个Excel兼容的电子表格（CSV，制表符分隔等）我可以使用bcp ，但是有几个视图中包含换行符的字段，这在导入到Excel时certificate是麻烦的。这些视图也是多样的，并且具有不可预知的列，所以就我所知，使用OPENROWSET也不是一个选项，因为您需要预定义具有行的Excel模板。任何帮助在这里将不胜感激。我知道我的方式访问和SQL Server，但我的知识是有限的。

如何检索VBA中Excel工作表单元格的A1样式引用: 如何检索VBA中Excel工作表单元格的A1样式引用？我正在使用Access 2007 VBA。因此，例如对于单元格MyWorksheet.Range("A1").Offset(2, 3)将返回值“D3”。这似乎是一个简单的问题。

在Excel中格式化date以使用Access VBA显示当前date: 我试图在Access VBA中格式化date值，以显示Excel文件（为此正在编写一个Access VBA代码）的当前date。但是，使用Date（）没有帮助（我猜它只能在Access中）。例如，使用单元格（2，3）= Date（）只显示一个数字“41039”，而不是date。我也尝试格式，这也没有奏效。我是Access VBA的新手，真的很感谢上述问题的答案。

如何使用VBAdynamicSQL SELECT语句调用MS Access参数查询: 我search了MSDN，StackOverflow，SQLServer Central和太多的网站提及。我一直在尝试几天find一种方法来执行MS Access中的参数查询使用Excel VBA代码中的dynamicSQL SELECT语句。我使用的系统在SQL Server TVF上工作得非常好，但由于失去了服务器支持，我必须将其转换为Access。 VBA代码首先循环访问Excel中的一个“input”工作表，选取用于构builddynamicSQL SELECT语句的参数值和函数/查询名称。下面是构build连接的代码，并且仅为需要1个input参数之一的查询（有20个）调用Access Query： Dim strSQL ' set up our connection strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\PathToDB Tables 2013-12-13.accdb;" Set conn = CreateObject("ADODB.Connection") conn.Open strConnection ' open the view and create the report Set rs = CreateObject("ADODB.recordset") Application.ODBCTimeout = 0 conn.CommandTimeout = 0 strSQL = "select * FROM […]

如何在excel应用程序中从access vba中设置警告: 我打开excel工作簿访问后，写入内容从访问Excel，我使用xlobj.save保存工作簿。 Excel应用程序正在给出一些警告说，这个工作簿已经存在，你要replace它。如何禁止访问这些警告。我正在使用DoCmd.SetWarnings，但不工作。这是我的代码 Public Sub sCopyResultstoexcel(conSHT_NAME As Variant, conWKB_NAME As Variant, qrytable As String) 'Copy records to first 20000 rows 'in an existing Excel Workbook and worksheet Dim objXL As Excel.Application Dim objWkb As Excel.Workbook Dim objSht As Excel.Worksheet Dim db As Database Dim rs As Recordset Dim rs_Attribute As Recordset Dim intLastCol […]

是否可以search，然后使用Access VBA从Excel文件读取特定值？: 我不得不从excel文件中读取值，但它是一个Excel逗号分隔的文件。这一次，我有一个graphics和两个表的Excel文件。我只想读取特定表格的一列中的值。这里是一个excel文件的布局的图片。我想在底部标有“红色”箭头标记的“金额”栏中阅读。我不想把它下面的所有金额的总和。当我读取从Excel逗号分隔的文件中的所有值我使用此代码。初始化和不必要的逻辑已被删除，只显示这个问题的相关代码。 Set objconnection = CreateObject("ADODB.connection") Set objRecordset = CreateObject("ADODB.recordset") objconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpathtotextfile & ";Extended Properties=""Text;HDR=YES;FMT=Delimited""" objRecordset.Open "SELECT * FROM [" & ThisFileName & "]", objconnection, adOpenStatic, adLockOptimistic, adCmdText 'select all text lines from the file Do While Not objRecordset.EOF 'read lines until end of file 'Clear […]

xlLastCell只能工作一半的时间: 我试图通过以下代码删除Excel中的重复项： Set rng = Range("A1", Range("A1").SpecialCells(xlLastCell)) rng.removeduplicates Columns:=8, Header:=xlYes 这种方法似乎工作一半的时间。有时候它有效，有时会给我以下错误：运行时错误1004的search给我的信息，不应该有string，超过911字符，情况并非如此。在同一个excel文件上多次运行代码时，大概有50％的时间。我正在运行ms access 2007中的代码，但是所有的引用都打开了。现在的问题是，如何解决这个问题，但任何其他更好的方法来轻松删除我的重复，也将受到赞赏。谢谢。编辑：完整的代码： Const xlLastCell As Long = 11 Const xlYes As Long = 1 Public Function formatreports(FileName As String) As String Dim xl As Excel.Application Dim xlwb As Excel.Workbook Dim xlsh As Excel.Worksheet Dim rng As Range Dim […]