Tag: Excel VBA的Excel

连接错误：Excel VBA到远程MySQL: 我有两台工作的电脑，在同一个networking，相同的公共IP。我能够成功地连接到我的mySQL数据库从本地主机在计算机上1.我试图通过Excel VBA从计算机2连接到相同的数据库。我试过了 mysql> GRANT ALL PRIVILEGES ON database.* to user@'ip' IDENTIFIED BY 'pass' mysql> GRANT ALL PRIVILEGES ON database.* to user@'%' IDENTIFIED BY 'pass' Excel VBA： Dim strServer As String Dim strDBName As String Dim strUserID As String Dim strPasswd As String strServer = "ipaddress" strDBName = "dbname" strUserID = "userid" strPasswd = […]

Excel 2010macros数据透视标签filter: 我在我的数据透视表中的列（经典视图）上运行标签filter的问题。我试图清除那些不到180天的数据。我无法调整数据，因为它用于提供多个工作表，我不希望复制数据并为此工作表进行操作。下面是我正在运行的线。 ActiveSheet.PivotTables("PivotTable5").PivotFields("Ageing").PivotFilters.Add _ Type:=xlCaptionIsBetween, Value1:="180", Value2:="9999" 这是一个“之间”filter。我已经试过大于和大于或等于但是相同的结果发生。这行后，我可以点击进入数据透视表软/filter向下箭头，看到filter是作为一个之间，甚至是input的日子，但数据不反映这一点。如果在filter上点击“确定”，它就会自动应用，但我不希望手动执行此操作。是的，“PivotTable5”是有问题的数据透视表。任何人都可以帮助我自动化这个过程？

VBA过滤多个单元格: 我试图根据另一个选项卡上的多个单元格的值过滤列表，但我不能让它正常工作。这就是我得到的： ActiveSheet.Range("$A$2:$Y$129").AutoFilter Field:=13, Criteria1:=Range("Formulas!A8:A10").Value 问题是，它与1单元格，但不是多倍，因为我已经试图做范围A8：A10。现在的代码只在最后定义的单元格上过滤，即A10 – 而不是整个范围。我究竟做错了什么？

数据从工作表中拉出后，MsgBox会出现多次: 我想得到一些帮助下面的代码。我很新，但我认为这是一个简单的解决scheme，我只是无法将其他search的build议翻新到我的代码。 msgboxes工作正常，第一遍来检查文本框的值是否正确，但是当我检查一个表单的公式结果是否正确时，我得到5个消息框popup。希望这是有道理的，让我知道，如果你有任何build议！ `Private Sub SpeedCommand_Click() Dim ctl As Control If TextBox1AM180.Value > 12000 And TextBox1AM180.Value <> "" Then MsgBox "Rate Value is out of range for this boom. Ensure rate value is less than 12,000 lbs./acre", vbExclamation, "Main Bin Application Rate" Me.TextBox1AM180.SetFocus Exit Sub End If If (TextBox2AM180.Value > 120 Or TextBox2AM180.Value < […]

Excel VBA ODBC连接导入列格式: 我正在寻找一种方法来重新格式化一些使用ODBC连接导入到我的工作表的字段。这些字段尤其是date字段。我需要导入这些文本或其他格式，因为数据库中的数据有时会有“1850-01-01”或“0001-01-01”date。当导入到Excel中时，date显示为####标志。这是我目前使用的编辑查询： Public Sub REFRESH_DATA() Dim cnDB As New ADODB.Connection 'Declare the connection object. Dim rsRecords As New ADODB.Recordset 'Declare a Recordset object. 'Open the connection cnDB.Open "DSN=DB;Database=DB;Servername=server.net;UID=username;Password=password;Port=0000;ReadOnly=0;SQLBitOneZero=0;LegacySQLTables=0;NumericAsChar=0;ShowSystemTables=0;LoginTimeout=0;QueryTimeout=0;DateFormat=1;SecurityLevel=onlySecured;CaCertFile=" rsRecords.Open "SELECT REGION_CD, CUST_NO, EFF_DATE FROM DATABASE.TABLE", cnDB 'Print the records in the correct table .Range("A2").CopyFromRecordset rsRecords 'Close everything rsRecords.Close Set rsRecords = Nothing […]

代码在F8阶段工作，但不正常运行时: Sub InternetPractice() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.navigate "https://www.yahoo.com" Do While ie.Busy = True Or ie.readyState <> 4: DoEvents: Loop ie.document.getElementById("uh-search-box").Value = "Earth" ie.document.getElementById("uh-search-button").Click Do While ie.Busy = True Or ie.readyState <> 4: DoEvents: Loop ie.document.getElementById("logo").Click Set ie = Nothing End Sub 代码工作时，我一步一步地逐行，而不是正常运行时。我曾尝试在某些部分插入45秒的时间，但没有成功。正常运行时，代码在ie.document.getElementById("logo").Click中断ie.document.getElementById("logo").Click a a '424'对象需要错误

使用VBA操作IElogin和预订课程: 我试图用VBA打开一个新的IE实例，进入一个网页，login，然后导航到一个页面，在那里我可以预订我的体育课，导航到正确的类，并按下“书”button。我相当精通简单的VBA，我已经使用了一段时间来自动执行excel任务，但是我从来没有试图用IE来使用它，所以我对它的相当新颖。我不太了解VBA如何与HTML集成，而我的HTML知识是相当基础的。到目前为止，我已经设法创build的代码来打开IE，导航到正确的网页，并login我从那里变得复杂… 该网页有一系列的“块”，可以select为周体育课。这些都是每天更新，所以代码将需要search正确的date，时间和类，然后按相应的书籍button。在过去的几天里，我已经广泛地search了这个解决scheme，但是找不到类似于我正在寻找的东西。我到目前为止的VBA如下。这适用于我的要求的第一部分。 Sub Login_Test() ''This version successfully goes to puregym.com and logs into my account 'Outstanding'''''''''''''''''''''''''''''''''' 'Need to select class page 'Need to select correct date & class 'Need to book class '''''''''''''''''''''''''''''''''''''''''''''' ' open IE, navigate to the desired page and loop until fully loaded Set ie […]

VBA Shell函数无法执行Python脚本: 我尝试使用下面的VBA代码执行Python脚本（请运行sub Test() ）， Option Explicit #If VBA7 And Win64 Then Declare PtrSafe Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long #Else Declare Function OpenProcess Lib "kernel32" […]

将Access数据库查询复制到Excel电子表格中: 我有一个Access数据库和一个Excel工作簿。我需要做的是查询数据库并将查询粘贴到工作表中。问题是运行时。我已经join了这个程序，一切正常，但是它的工作速度非常慢，我们说每个查询的运行时间高达30秒，尽pipe这个运行时间的大部分是通过CopyFromRecordset调用来实现的。数据库在我查询的表中有超过800k行。目前在我的公司，每天早上都有人手动查询表格并将其复制并粘贴到excel中。我试图删除这个过程。这是我有什么： Sub new1() Dim objAdoCon As Object Dim objRcdSet As Object ' gets query information ' Dim DataArr() Sheets("Data2").Activate DataArr = Range("A1:B40") For i = 1 To UBound(DataArr) job = DataArr(i, 1) dest = DataArr(i, 2) If InStr(dest, "HT") > 0 Then OpCode = "3863" ElseIf InStr(dest, "HIP") […]