Tag: 提取

从multidimensional array中提取一维数组

我如何编写一个函数从VBA中的multidimensional array中提取单维数组？ 假设我有： 一个三维数组a(3,3,3) ， 那么现在我想提取： a(1,1,1) ， a(1,2,1) 和a(1,3,1)成一个新的数组。 我在这里使用3维或更multidimensional array。 这是因为我已经知道我们可以使用Application.WorksheetFunction.Index从二维数组中提取。 先谢谢你。

从网站使用VBA刮，但它不工作。 该怎么办？

我有这个网站： http : //ga.healthinspections.us/georgia/search.cfm?start=21&1=1&f=s&r=ANY&s=&inspectionType=Food&sd=03/26/2016&ed=04/25/2016&useDate=NO&county=Fulton& 而且我已经写了代码，但即使第一页也不起作用。 我的目标是从每个页面提取以下build立的详细信息作为示例： Column 1: 103 West Lounge (Food Service Inspections) Column 2: 103 WEST PACES FERRY RD ATLANTA, GA 30318 (Skip this detail) View inspections: Column 3: July 10, 2012 Score: 92, Grade: A Column 4): July 26, 2013 Score: 90, Grade: A Column 5): February 19, 2014 Score: 98, Grade: […]

从excel中包含文本string的单元格中提取date

截至2016年6月30日星期四十二个月 我有以上的文字在Excel中，我需要一个Excel的公式只提取date2016年6月30日 。 我研究的公式都是数字date（即06/30/2016）。 有谁知道如何做到这一点？ 提前致谢！

使用Excel VBA从Outlook文件夹中提取电子邮件数据

使用基于variables（Excel中的值/命名范围）进入Outlook中指定文件夹的Excelmacros，并从指定文件夹（To：field，Subject，..等）中的电子邮件中提取数据。 除了电子邮件的“主题”和“大小”数据之外的任何部分，代码都可以正常工作。 如果我尝试使用与“主题”或“大小”编码相同的方法拉入“收件人”数据，则会出现“运行时错误438”：对象不支持此属性或方法错误。 以下是我到目前为止， Sub FetchEmailData() Dim appOutlook As Object Dim olNs As Object Dim olFolder As Object Dim olItem As Object Dim iRow As Integer 'Get/create Outlook Application On Error Resume Next Set appOutlook = GetObject(, "Outlook.Application") If appOutlook Is Nothing Then Set appOutlook = CreateObject("Outlook.Application") End If On Error GoTo 0 Set olNs […]

如何共享twbx文件，让对方不必拥有excel文件，并可以刷新数据？

所以我的twbx有两个数据源。 其中之一是数据库连接（客户SQL查询）使用数据连接与Excel文件连接。 另一个数据源是一个excel文件。 当我尝试刷新Tableau桌面上的数据，并且Excel文件的文件path已更改时，它会要求我指定文件path。 我想当你创build一个twb文件的提取数据的副本存储在tableau文件中。 这很奇怪，因为我创build的另一个twbx文件也使用了与数据库连接的excel文件，每次刷新提取文件时都不会要求我提供文件path。 当刷新发生时，我真正想要做的只是刷新数据库连接，如果excel文件保持不变，那么也可以。 我看到这个post（ http://drawingwithnumbers.artisart.org/o-extract-where-art-thou/ ）并且应用了它的方法，但是没用。 我试图找出两者之间的差异，除了以excel文件的forms使用附加数据源（不是数据连接）的事实之外，没有什么区别。 更具体地说，这不是Tableau Server / Online中的事情，这一切都发生在桌面桌面上

使用Excel VBA从雅虎财务中提取数据

您好我需要帮助这个代码我试图从这个页面提取数据https://finance.yahoo.com/quote/ADM.L/balance-sheet?p=ADM.L ，但问题是页是默认设置为年度，但我需要总资产和总负债的季度值。 这个代码运行，但大部分时间是select年度值。 请提出一些我可以做的事情。 Private Sub CommandButton3_Click() ' Dim ie As Object Set Rng = Range("A2:A50") Set Row = Range(Rng.Offset(1, 0), Rng.Offset(1, 0).End(xlDown)) Set ie = CreateObject("InternetExplorer.Application") With ie '.Visible = False For Each Row In Rng .navigate "https://finance.yahoo.com/quote/" & Range("A" & Row.Row).Value & "/balance-sheet?p=" & Range("A" & Row.Row).Value 'Application.Wait (Now + TimeValue("0:00:02")) While ie.readyState […]

Excel从具有随机结构的单元格中提取精确的string

好吧， 在列A中，基本上每个单元格都有不同的组合，并且没有相同的string前后值我们正在提取。 例如： ODODODODEFGH4OGOGOG LALALALALABCDE12-1ALALALALA IRIRIRIRIJKLMNOROROR 我需要从列A中提取位于另一个表单中的以下string（（它是一个包含文本和可变长度的数字的SKU信息），并将其列在其旁边的列B中 ABCDE12-1 EFGH4 IJKLMN 我试过查找，中期，查找，索引function，但似乎无法find解决scheme。 任何帮助非常感谢！

PHP中的子查询将数据提取到Excel

我有两个表格： biometrics – records in and out of employees emp – employee records 在我的生物识别表中，有一个状态。 0 – if the employee went out 1 – if the employee went in 员工可以在一天中拥有多个0和1的状态，因为您在rest时也可以进入计时和超时状态。 所以状态可以是这样的： time_created status 9:00 1 — time in 12:00 0 — time out for break 13:00 1 — time in again after break 18:00 0 — […]

数组VBA代码（数据提取）

当前; y正在基于用户窗体的条件提取数据（行），但下面的代码只能在单个工作表上工作一旦工作表上的button可用，我可以得到下面的代码工作，它写入“从“表如预期，但我不能为我的生活得到正确编写的数组的代码。 我已经尝试了包括这里在内的各种不同的代码，但是我没有足够的能力去debugging这个错误。 有人可以帮我在这里，或指出我在正确的方向吗？ Sub CommandButton1_Click() Dim strsearch As String, lastline As Integer, tocopy As Integer strsearch = CStr(InputBox("enter the string to search for")) 'Enter code for all sheets in here… lastline = Range("A65536").End(xlUp).Row j = 1 For i = 1 To lastline For Each c In Range("A" & i & ":Z" & i) If […]

提取string中最后一个数字前面的所有文本

我需要删除我的string中最后一个数字左边的所有文本。 奇怪的是，我似乎可以find一切，但是这个。 这里是我需要的例子。 资源： OsteoActiv 150胶囊 维生素B6作为吡哆醛-5-磷酸盐33.8 mg 60素食主义者胶囊 酪氨酸500毫克60素食胶囊 绿茶-70 500毫克EGCG 350毫克60素食胶囊 欧米茄至尊90胶囊 需要的结果： 150胶囊 60粒素食胶囊 60粒素食胶囊 60粒素食胶囊 90粒胶囊 Excel的提取物-文字-左的决赛用户号码中，String.jpg