Question

从记录集中得到结果后，我缩短了名称，以便在页面中更容易写入。我通过$ TitleTarg [100]回复$ TitleTarg [1]。这一切都在起作用，但是有一个简写，所以我不必写100次吗？它在很多页面中使用过。

Dim c
Dim d

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("D:\test4.xlsm")

objExcel.Visible = True
objExcel.displayalerts = false

Set objExcel2 = CreateObject("Excel.Application")

strPathExcel = "C:\Users\Desktop\test4.xlsx"
objExcel2.Workbooks.open strPathExcel 

Set oSheet = objExcel2.ActiveWorkbook.Worksheets(1)

a = 2
i = 2
j = 2

Do Until objExcel.Cells(a, 1).Value = ""
    c = 0
    d = 0

    Do Until c = objExcel.Cells(j, 3).Value
        inputText=objExcel.Cells(j, 5).Value
        oSheet.Cells(i,3).Value = split(inputText,";#")

        c = c + 1
        d = d + 1
    Loop

    i = i + 1   
    a = a + 1
    j = j + 1
Loop

objExcel.Save
objExcel2.Save

objExcel.Quit
objExcel2.Quit

我已经阅读了三个小时并查看了类似的问题＆＃39;部分无济于事。工作答案受到赞赏和投票。

感谢您的帮助。

Answer 1

由于您的来源密钥始终为descriptionN且N是一个向上计数的数字而不会跳过一个，因此可以使用这样的简单for循环轻松完成此操作

$TitleTarg = array();
for ($i=1; $i<=100; $i++) {
    $TitleTarg[$i] = $row_rsTargTitles['description'.$i];
}

确保您有正确的限制（开始和结束）。

Answer 2

你可以通过简单的代码实现这个目标

for ($i=1; $i<=100; $i++) 
{ 
    $temp = 'description'.$i;
    $TitleTarg[$i] = '$row_rsTargTitles['.$temp.']'; 
}

echo "<pre>";
print_r($TitleTarg);

是否有在PHP中创建数组的简写

2 个答案: