如何用字符串作为变量设置Excel各列的ColumnWidth？（VBA6环境）

错误根源 #

你的循环代码里，foo = ("xc" & temp)只是生成了"xc1"这类字符串，而不是获取参数xc1的实际数值。直接把字符串赋值给需要数值类型的ColumnWidth属性，就会触发Range类的属性设置错误。

修复方案 #

方案1：用参数数组重构（推荐） #

把原方法的15个单独参数改成参数数组，循环逻辑更简洁，还能避免解析变量名的问题：

Private Sub XLSetCol(ParamArray colWidths() As Variant)
    Dim temp As Integer
    Dim colLetter As String
    
    ' 校验参数数量是否匹配15列
    If UBound(colWidths) + 1 <> 15 Then
        MsgBox "请传入15个列宽参数"
        Exit Sub
    End If
    
    For temp = 1 To 15
        colLetter = Chr(64 + temp) ' 65对应A，所以64+1得到A的ASCII码
        excel_app.Columns(colLetter).ColumnWidth = colWidths(temp - 1)
    Next temp
End Sub

调用方式和原来一致，直接传15个数值就行：XLSetCol(10, 15, 8, ...)

方案2：用CallByName获取原有参数值（不改动调用逻辑） #

如果不想修改原方法的参数列表，用CallByName来读取对应参数的数值：

Private Sub XLSetCol(xc1, xc2, xc3, xc4, xc5, xc6, xc7, xc8, xc9, xc10, xc11, xc12, xc13, xc14, xc15)
    Dim temp As Integer
    Dim colLetter As String
    Dim widthValue As Variant
    
    For temp = 1 To 15
        colLetter = Chr(64 + temp)
        ' 读取当前模块中名为"xc"+temp的参数值
        widthValue = CallByName(Me, "xc" & temp, VbGet)
        excel_app.Columns(colLetter).ColumnWidth = widthValue
    Next temp
End Sub

直接替换原循环代码即可，原有调用逻辑不用改。

方案3：手动将参数存入数组循环 #

嫌CallByName麻烦的话，也可以先把15个参数放进数组，再循环赋值：

Private Sub XLSetCol(xc1, xc2, xc3, xc4, xc5, xc6, xc7, xc8, xc9, xc10, xc11, xc12, xc13, xc14, xc15)
    Dim temp As Integer
    Dim colLetter As String
    Dim widthArr As Variant
    
    ' 把参数存入数组
    widthArr = Array(xc1, xc2, xc3, xc4, xc5, xc6, xc7, xc8, xc9, xc10, xc11, xc12, xc13, xc14, xc15)
    
    For temp = 1 To 15
        colLetter = Chr(64 + temp)
        excel_app.Columns(colLetter).ColumnWidth = widthArr(temp - 1)
    Next temp
End Sub

额外提醒 #

• 确认excel_app是已经正确初始化的Excel应用对象，指向的工作簿/工作表处于激活状态
• 列宽数值要在Excel允许的范围（0-255，0表示隐藏列）

内容的提问来源于stack exchange，提问作者Estimator73