作者yimean (温柔杀手)
看板Office
标题[算表] VBA 请问Sub/Function传值上限
时间Sun Nov 4 19:08:36 2018
软体:Excel
版本:2013
各位版大晚安。
小弟写了一个Sub(A as integer, B as integer)
呼叫的时候就是会错，错误讯息是语法不正确，此时我只要将B删掉，就可以了。
我在想说，Sub传入的参数会有上限吗？
Sub ImportPDF(item_number As Integer, sequency As Integer)
' 插入PDF调整
Dim PDF As Object
Dim PDFfilename As String
PDFfilename = item_number & ".pdf"
real_locate_row = (sequency - 1) * 36 + 1
Set PDF = ActiveSheet.OLEObjects.Add(Filename:=PDFfilename, Link:=False,
DisplayAsIcon:=False)
With PDF
.Top = ActiveSheet.Cells(real_locate_row, 2).Top
.Left = ActiveSheet.Cells(real_locate_row, 2).Left
.Width = 100
.Height = 200
End With
Set PDF=Nothing
End Sub
这个是程式码，太诡异了。
请高手大大指导一下，感恩。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.195.98.141
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1541329719.A.435.html
1F：→ soyoso: 测试该两变数传值1，是无出现错误 11/04 19:20
3F：→ yimean: 这真是太神奇了捷克 11/04 19:39
5F：→ yimean: 我刚刚试着把括号拿掉，竟然就可以了@.@ 11/04 19:44
6F：→ yimean: 这...我之前一个变数的都有加括号，所以我不疑有他。 11/04 19:45
7F：→ newacc: 我也曾经出现过类似的bug，後来就把习惯改成通通不加括号 11/04 20:02
8F：→ newacc: ，除非执行时跳错误，再把括号加上去 11/04 20:02
12F：→ yimean: 请问两位高手大大，这个有解吗？ 11/04 20:04
13F：→ soyoso: 出现连结内错误1004无法插入物件方面，是否同excel档案子 11/04 20:16
14F：→ soyoso: 目录内无该档案(未指定路径下)，或指定路径和完整档名上不 11/04 20:18
16F：→ soyoso: 案内无test1.pdf的档案，则出现同原po回文连结内的错误 11/04 20:19
17F：→ soyoso: 另外要加括号方面的话，前面就加上call importpdf(..,..) 11/04 20:21
18F：→ yimean: @Soyoso & @newacc 感谢指导，获益良多。 11/04 20:31