求大神帮忙看下代码，老是报错

xunanming

Dim PathStrO() As String, PathStr1() As String
Dim PathStr2() As String, PathStr3() As String, PathStr4() As String, PahtStr5() As String
你这些变量定义的有问题,上面是定义变量为动态数组,而你在下面的代码中,只是给这些变量直接赋值的是字符串.而不是以重定义动态数组的方式写入值.所以你要确定你这些中每个变量的是数组,还是string.如果 是前者,需要重定义数组,一个个写入值.如果只是单一的字符串,那定义变量就是不要括号.
或者这些变量直接定义为变体变量,让系统确认.

chenjj007

好坑，我用QQ截图识别，然后导入的，自己手动输入一段能运行！！！

chenjj007

现在全部的代码改成这样了
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long

Private Sub CommandButton1_Click()
Dim i As Long
Dim PathStrO As String, PathStr1 As String
Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks

For i = 0 To FNum - 1
PathStrO = PathStr & "\" & FName(i)
Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
L = Len(PathStr0)
'PathStr1 = Left(PathStr0, L - 7) & ".DWG"
PathStr2 = Left(PathStrO, L - 7) & ".PDF"
'longstatus = Part.SaveAs3(PathStr1, 0, 0)
longstatus = Part.SaveAs3(PathStr2, 0, 0)
Set Part = Nothing

L1 = Len(FName(i))
PathStr3 = Left(FName(i), L1 - 7) & "-图纸1"
PathStr4 = Left(FName(i), L1 - 7) & "-图纸2"
PathStr5 = Left(FName(i), L1 - 7) & "-图纸3"
swApp.CloseDoc PathStr3
swApp.CloseDoc PathStr4
swApp.CloseDoc PathStr5
Next i
End Sub

Private Sub Showfilelist(folderspec As String)
Dim fs, f, f1, fc, S
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
FNum = 0 '清零
For Each f1 In fc
If InStr(f1.Name, "SLDDRW") > 0 Then
FName(FNum) = f1.Name
FNum = FNum + 1
End If
Next
End Sub

sj15627581616

chenjj007 发表于 2024-1-27 14:38
运行到这里又卡壳了

我觉得你最好还是搭配文件来让人测试，没有环境测试，一个地方出一个错，得搞到什么时候

xunanming

chenjj007 发表于 2024-1-27 14:38
运行到这里又卡壳了

你的L值是0,就是没有取得PathStr0的字符串长度,你再研究研究.

chenjj007

终于弄好了，看来不能太依赖QQ截图识别，认真看了下不是少写个字母，就是O和0搞错了。