Question

基本上我想要实现的是将其他工作簿中的单元格值分配到我的代码中。

客户发送他们想要订购的商品的电子表格，这个电子表格用于多个目的，因此它有许多我不需要的列。
所以我创建了一个宏来查找并从某些列中提取值并吐出一个CSV文件。
然后我创建了一个我自己的电子表格，其列值全部映射出来，我正在尝试编写代码来查找电子表格中的单元格值，并知道要在客户电子表格中查找哪些列。
我想要它，所以我可以进入并更改单元格中的值我的电子表格，而不是必须进入编码和更改列值在我的代码中。

ShipToSiteID = Application.WorksheetFunction.Trim(Range("Q" & counter))
AltShipTo1 = Application.WorksheetFunction.Trim(Range("G" & counter))
AltShipTo2 = Application.WorksheetFunction.Trim(Range("H" & counter))
AltShipToCity = Application.WorksheetFunction.Trim(Range("I" & counter))
'AltShipToState = Application.WorksheetFunction.Trim(Range("I" & counter))
 AltShipToZip = Application.WorksheetFunction.Trim(Range("J" & counter))
AltShipToCountry = "UNITED KINGDOM"
RefNumber = counter - 1
    UserId = LCase(Environ("username"))

ShipToSiteID = Replace(ShipToSiteID + AltShipToZip, " ", "")

Sheets(2).Select

    Range("A" & counter - 1) = LineType & comma & RefNumber & comma & QName & comma & BlanketID _
                                        & comma & BillToSiteID & comma & ShipToSiteID & comma & ContractID _
                                        & comma & PONumber & comma & CaseID & comma & ShipVia & comma & RequiredDate _
                                        & comma & Comments & comma & Priority & comma & TerminalID & comma _
                                        & AltContactFirst & comma & AltContactLast & comma & AltPhone & comma _
                                        & AltShipTo1 & comma & AltShipTo2 & comma & AltShipToCity & comma _
                                        & AltShipToState & comma & AltShipToZip & comma & AltShipToCountry _
                                        & comma & UserId & comma

Answer 1

一些建议......

要在workbook1上引用workbook2中的值，最简单的方法是将工作表从workbook2复制到workbook1。然后，您可以通过在单元格中键入“=”并单击要引用的单元格来引用该值。

在VBA代码中引用可以提供更多灵活性。我建议您查看this good SO question和this one以获取更多信息。这可能更符合您的要求。

不幸的是，如果您在workbook1上引用workbook2中的值，则没有简单的方法可以从workbook1更改workbook2的值。

将其他工作簿的单元格值分配给我的代码

1 个答案: