首頁猿問如下，請問為什么最后的輸出結(jié)果不正確

如下，請問為什么最后的輸出結(jié)果不正確

C 數(shù)據(jù)結(jié)構(gòu)

皈依舞 2022-08-06 13:09:36

Sub test()Dim times as stringDim str as stringtimes = Time()str = "D:\" & times & ".jpg"CliptoJPG(str)End Sub請問為什么最后的輸出結(jié)果不正確，CliptoJPG(str)使用CliptoJPG("D:\111.jpg")可以輸出想要的結(jié)果。

查看完整描述

1 回答

開滿天機

TA貢獻1786條經(jīng)驗獲得超13個贊

親測以下方式可行 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數(shù)組賦值 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 '將數(shù)組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

反對回復 2022-08-08