Question

我对VBA还是很陌生，需要帮助来处理将自动从其他工作簿合成数据的代码。

我的想法是每个月（例如2019-04）我有不同的文件，并且每个文件中都有一些我需要处理的不同投资组合的工作簿。

我希望通过以下方式合成数据：每一行代表一个投资组合，而各列代表我希望从其他文件复制的数据。每7列特定于一个特定月份。

在到目前为止的代码中，我提示用户以以下格式输入投资组合的日期：YYYY-MM;然后，我想找到具有该特定日期的单元格的列（这一部分我还无法弄清楚）。

然后我使用一个循环，该循环将打开要从中复制信息的每个工作簿。

最后，它将根据投资组合的行和日期的列复制每个工作簿中的数据。

任何帮助将不胜感激，因为我才刚刚了解VBA，因此我对所有技巧和窍门还不太熟悉。

这是我到目前为止的内容（请注意，我没有输入要复制的所有7个值）：

Sub StressTest()

Dim index As Integer
Dim dateColumn As Integer
Dim portfolioName As Variant
Dim portfolioDate As Variant

portfolioDate = InputBox("Please enter date under the following form : YYYY-MM", "Date at the time of Stress Test", "Type Here")
For index = 3 To 39

portfolioName = Range("A" & index & " ").Value

Workbooks.Open "G:\Risk\Risk Reports\VaR-Stress test\" & portfolioDate & "\" & portfolioName & ""

Cells(index, dateColumn).Value = Workbooks("" & portfolioName & "").Worksheets("VaR Comparison").Range("B19") / Workbooks("" & portfolioName & "").Worksheets("Holdings - Main View").Range("E11")

Cells(index, dateColumn + 1).Value = (Cells(index, dateColumn) - Cells(index, dateColumn + 6)) / Cells(index, dateColumn + 6)

Cells(index, dateColumn + 2).Value = Workbooks("" & portfolioName & "").Worksheets("Holdings - Main View").Range("E11")

Cells(index, dateColumn + 3).Value = (Cells(index, dateColumn + 2) - Cells(index, dateColumn + 9)) / Cells(index, dateColumn + 9)



Next index

End Sub

Answer 1

有多种方法来查找具有匹配标题的列。为简单起见，这是蛮力方法。假定活动表是带有标题的表，并且它们位于第一行。使用“ datecolumn = matchheader（portfoliodate）”获取列号

Function MatchHeader(strSearch As String) As Long
Dim myRight As Long, Colcount As Long
myRight = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
For Colcount = 1 To myRight
    If ActiveSheet.Cells(1, Colcount) = strSearch Then
        MatchHeader = Colcount
        Exit For
    End If
Next Colcount
End Function

如何根据Inputbox和单元格坐标从另一个工作簿复制数据？

1 个答案: