Tag: VBA的Excel的VBA

如何使用vba通过检查excel中的列来将数据从excel中获取到Excel中: 我已经尝试以下检索信息。从访问数据库到Excel文件： Sub ddd() Const dbloc As String = "C:\Users\mysystem1\Downloads\Database11.accdb" Dim db As DAO.Database Dim rs As DAO.Recordset Dim xlbook As Workbook Dim xlsheet As Worksheet Dim a As Long Dim SQL As String Set xlbook = ActiveWorkbook Set xlsheet = xlbook.Worksheets(1) xlsheet.Range("A5:Z100000").ClearContents Application.StatusBar = "Connecting to external database…" Set db = OpenDatabase(dbloc) SQL = […]

使用VBA从SQL查询string中删除别名？: 我有一个SQL查询string。在这个string中有多个不同的数据列，全部来自同一个表。为了简单起见，下面是一个简短的例子： SELECT 'A'.'B', 'A'.'C', 'A'.'D'其中'A'是别名。我的问题是：是否有一种方法使用VBA采取该查询string，并删除所有别名'A'实例，只是返回数据列'B', 'C', 'D' ？请不要完整的代码，我喜欢出发点。我喜欢自己填写。它有助于学习过程。

在Excel中更新单元格中的SQL查询: 我在Excel 2015工作表中构build了一个仪表板，用于汇总两个选项卡中的销售活动。每个选项卡都具有从Microsoft Dynamics 2015中的高级查找查询导出的dynamic数据透视表，其中包含SQL数据库连接。我希望能够在这个仪表板上键入date（在相应的“On or After”和“On or Before”单元格中），以相应地更新两个标签连接中的查询。这样做的目的是为了避免打开连接的属性，并手动更新每个选项卡的SQLdatestring。

使用VBA控制PTC WindChill: 跟进问题 pipe理放入数据并点击一些button。对于最后一部分，我需要点击以下屏幕截图中的选项卡。尝试使用以下HTML按相关对象选项卡。该HREF只是说＃和我不知道触发这个..任何提示？当我手动按下该选项卡，并检查该元素一个新的HTML文件是可见的数据… 谢谢！ <DIV class="x-tab-panel-header x-tab-panel-header-noborder x-unselectable x-tab-panel-header-plain" id=ext-gen1118 style="WIDTH: 1865px; MozUserSelect: none; KhtmlUserSelect: none" unselectable="on"><DIV class=x-tab-strip-wrap id=ext-gen1121 style="WIDTH: 1865px"> <UL class="x-tab-strip x-tab-strip-top" id=ext-gen1123> <LI class=" x-tab-strip-active" id=infoPageinfoPanelID__infoPage_myTab_object_infoDetails_cadx _nodup="30865"><A class=x-tab-strip-close id=ext-gen1126></A><A class=x-tab-right id=ext-gen1127 href="#">Details</A></LI> <LI id=infoPageinfoPanelID__infoPage_myTab_msr_modelStructureGWT _nodup="30865"><A class=x-tab-strip-close id=ext-gen1128></A><A class=x-tab-right id=ext-gen1129 href="#">Structure</A></LI> <LI […]

Excel VBA SQLjoin语法错误: 我正在写一个允许用户从列表框中select一个客户的子。 selectlogging为CustomerID（整型variables），并用于查询Access数据库文件。然后子应该输出到Excel工作表销售信息关于指定的客户，特别是：订购date 订单ID 总订单成本（定义为售出数量*售出价格）访问文件有3个我需要的表格：Customers，Orders，LineItems 我下面的代码应该join客户ID到订单ID字段，然后再join订单ID，订单IDjoin到行项目中。 ' Define SQL statement to get order info for selected product. SQL = "SELECT O.OrderDate, COUNT(O.OrderID), SUM(L.QuantityOrdered * L.QuotedPrice) AS [TotalCost] " _ & "FROM (((Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID) " _ & "INNER JOIN ON O.OrderID = O.CustomerID) INNER JOIN LineItems […]

这个ADO OPEN方法做什么？: 用简单的英语，你可以向我解释这里发生了什么： rs.Open "batchinfo", oConn, adOpenKeyset, adLockOptimistic, adCmdTable 我需要做的是能够将值插入到一个名为batchinfo的表中。这是做OPEN的最好方法吗？我会做的唯一的事情就是插入值。

在Excel中插入SQL查询结果: 我正在使用下面的SQL查询是returing多行和coloumns在结果中，当我想在excel中通过这些我不能做到这一点码： Set com = QCConnection.Command com.CommandText = "select RN_TESTER_NAME as 'Tester, sum(case when RN_STATUS='Passed' then cnt else 0 end), sum(case when RN_STATUS='Failed' then cnt else 0 end)from (select count(*) cnt, RN_STATUS,RN_TESTER_NAME from RUN Where RN_Execution_Date = '5/17/2017'group by RN_STATUS,RN_TESTER_NAME) as RUN group by RN_TESTER_NAME order by RN_TESTER_NAME" Set RecSet = com.Execute For Col = […]

Excel VBA MySQL“SELECT * FROM table”不完整的信息: Excel VBA代码从MySQL数据库中select值，我有一个很奇怪的问题。我使用以下列构build了一个简单的数据库： ID 名称姓市让我们假设有以下的东西： 01; 泛; 彼得; NYC 02; P：彼得; NYC 但现在的问题，如果我从我的表中select*它只显示我以下输出： 01; P：泛; NYC 02; P：泛; NYC 这意味着我只能看到一个入口的最小长度……那里发生了什么？我在这个任务的不同模块里有非常随意的VBA代码：公共variables： Public cn As ADODB.Connection Public rs As ADODB.Recordset Public strSql As String 连接模块： Public Function connectDB() Dim strServer_Name As String Dim strDB_Name As String Dim strUser_ID As […]

我无法访问我的sql数据库中的所有表: 请有人可以帮我解决这个问题。我有一个VBA中的表单，从此我想运行一些SQL查询，并从我的数据库中检索数据，然后将结果放在窗体（GUI）中的文本框中，我在我的数据库中有大约20个表，但令人惊讶的是我只能访问第一个表（InventoryCompleteList）。每个尝试访问另一个表返回一个错误，例如（Invalidobject名'functionalTestResults'），而当我运行查询（inventoryCompleteList），似乎是工作。注意functionalTestResults和inventoryCompleteList都是我的sql服务器中的表请任何人都可以帮我找出问题可能是什么。以下是我的数据库的视图 `Private Sub ENTER_Click() Dim cn As Object Dim rs As Object Dim strFile As String Dim strCon As String Dim strSQL, strInput As String strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=KBOW;Data Source=10.23.30.8\KBOW;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ULWW101;Use Encryption for Data=False;Tag with column collation when possible=False;" Set cn = […]

使用分隔符将SQL数据分成3列: 我正在使用Excel VBA并使用OleDB连接到PGSQL。不幸的是，oledb不允许引用聚合函数之外的列，因为group by已经被应用到表中，所以我必须连接数据，但是我无法将数据（latestBMI）分割回3个单独的列事件date|重量| bmi），因为重量和bmi值的长度不同，但是被pipe道分隔。以下是通过提取的表格： master_id : latestBMI 251 : 2008-05-08|84|26.8 2848 : 1992-11-23|86.71|27.3 2026 : 2002-04-16|105|31.6 22316 : 2014-02-28|107.955|35.1 16633 : 2005-07-04|70|25 9545 : 1997-04-08|82.73|24.9 我一直在玩各种各样的方法尝试SUBSTRING，CHARINDEX，LEN，LEFT，RIGHT，但是失败。这是我目前的代码，但重量和BMI的SUBSTRING元素是我的问题： Const sqlconnection = "Provider=oledb;" Dim conn As New Connection conn.ConnectionString = sqlconnection conn.Open Dim rs As Recordset Sheets("Sheet1").Select Range("A1").Select Dim DATA As String DATA = "SELECT […]