Question

我有查询，我运行并填充spreedsheet，我想运行另一个查询，将使用第一个选定的值将结果返回并附加到我在工作表上的那个，我想要所有的结果被填充为一个范围（列）。到目前为止，我的代码只将结果带到选定的单元格中，该单元格应该填充该列，但是当我仅循环该单元格时，会更改与我想要的值相反的值，这是连续第一个单元格之后的下一个单元格。这是迄今为止的代码

 Dim rRange As Range

Dim rCell As Range
  Dim myArray As Variant


    Set rRange = Range("A5", Range("A65536").End(xlUp))

myArray = rRange

    For Each rCell In rRange


        MsgBox rCell.value

        strSQL1 = "SELECT  MobileNumber as Number  FROM  assets where AllocatedTo = '" & rCell.value & "'"

     MsgBox strSQL1
     Set rs1 = New ADODB.Recordset
rs1.Source = strSQL1
rs1.ActiveConnection = conn
rs1.Open

rs1.MoveFirst

Sheets("TestTim").Range("F5").CopyFromRecordset rs1

    Next rCell

Answer 1

我尝试将您的问题编辑成英文，以确保我正确理解您的要求。尽我所能，我失败了。对不起，我不完全确定你在问什么。

那就是说，我相信您可能希望CREATE TABLE bill_tos_f ( billing_account_num NUMBER(5) CONSTRAINT bill_tos_f_bill_to_num_pk PRIMARY KEY, bill_to_first_name VARCHAR2(25) CONSTRAINT bill_tos_f_bill_first_nn NOT NULL, bill_to_middle_name VARCHAR2(25), bill_to_last_name VARCHAR2(25) CONSTRAINT bill_tos_f_bill_last_nn NOT NULL, bill_to_street VARCHAR2(30) CONSTRAINT bill_tos_f_bill_street_nn NOT NULL, bill_to_city VARCHAR2(30) CONSTRAINT bill_tos_f_bill_city_nn NOT NULL, bill_to_state CHAR(2) CONSTRAINT bill_tos_f_bill_state_nn NOT NULL, bill_to_zip CHAR(5) CONSTRAINT bill_tos_f_bill_zip_nn NOT NULL, bill_to_country CHAR(3) ); CREATE SEQUENCE bill_tos_f_bill_acc_num_seq INCREMENT BY 1 START WITH 52315 MAXVALUE 99999 NOCYCLE NOCACHE; INSERT INTO bill_tos_f(billing_account_num, bill_to_first_name, bill_to_middle_name, bill_to_last_name, bill_to_street, bill_to_city, bill_to_state, bill_to_zip, bill_to_country) VALUES(bill_tos_f_bill_acc_num_seq.NEXTVAL, 'mike', 'row', 'smith', '983 Circle Point', 'Atlanta', 'GA', '3825', 'USA');而不是将每条记录放在同一个单元格中。

我认为当你说“只有那个细胞改变价值”时，改变可能会解决你所指的问题。我希望我能提供帮助。我理解被要求以不是母语的语言工作是什么感觉。

使用where语句将日期从数据库填充到匹配的行

1 个答案: