如下，请问为什么最后的输出结果不正确

Question

Sub test()
Dim times as string
Dim str as string
times = Time()
str = "D:\" & times & ".jpg"
CliptoJPG(str)

End Sub
请问为什么最后的输出结果不正确，CliptoJPG(str)使用CliptoJPG("D:\111.jpg")可以输出想要的结果。

Answer 1

亲测以下方式可行 Sub test() Dim ColName1 As String, ColName2 As String, ColNum As Long, a() As Long Dim i As Integer, j As Integer ReDim a(1 To 5, 1 To 2) For i = 1 To 5 '给aa数组赋值 For j = 1 To 2 a(i, j) = i * j Next Next For i = 4 To 10 Step 3 '从4列即“d”列开始 ColNum = i * 1 '起始列的变量表示 ColName1 = GetExcelColumn(i * 1) '起始列变量名称 ColName2 = GetExcelColumn(i * 1 + 1) '终止列变量名称 Sheets("Sheet1").Range(ColName1 & "1:" & ColName2 & "5") = a '将数组a赋值到 Range：D1:E5, G1:H5,J1:K5 Next End Sub Function GetExcelColumn(columnNumber As Long) Dim div As Long, ColName As String, modulo As Long div = columnNumber: ColName = vbNullString Do While div > 0 modulo = (div - 1) Mod 26 ColName = Chr(65 + modulo) & ColName div = ((div - modulo) / 26) Loop GetExcelColumn = ColName End Function