Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 在Visual Basic中将整数打印为字符串_Excel_Vba - Fatal编程技术网

Excel 在Visual Basic中将整数打印为字符串

Excel 在Visual Basic中将整数打印为字符串,excel,vba,Excel,Vba,在Visual Basic中 我有下面的代码编写,但我有问题打印它的字符串格式 虽然它是整数类型。为了节省时间,我不重复同样的内容 超过30个号码的东西 Dim line As Integer line = 0 Sub DisplayModule(page As Integer, line As Integer) maxline = 100 For line = 0 To maxline Print #page, Spc(6); "Display in String" Print #p

在Visual Basic中

我有下面的代码编写,但我有问题打印它的字符串格式 虽然它是整数类型。为了节省时间,我不重复同样的内容 超过30个号码的东西

Dim line As Integer
line = 0

Sub DisplayModule(page As Integer, line As Integer)
maxline = 100    
For line = 0 To maxline
Print #page, Spc(6); "Display in String"
Print #page, Spc(8); "{"
Print #page, Spc(10); """line"""
Print #page, Spc(8); "}"
Print #page, Spc(8); "next"
Next
End Sub
问题-它正在显示:

Display in String
{
 line
}
"next line please"
{
 line
}
.
.
我希望它以“”的形式显示:

我找不到像这样的衣服。 谢谢你的帮助。

试试这个

Print #page, Spc(10); chr(34) & line & chr(34)
试一试


@彼得。给您带来的不便,我深表歉意:很高兴,先生-我很喜欢那场比赛)谢谢您节省了我的时间。
Print #page, Spc(10); chr(34) & line & chr(34)
Dim line As Integer
line = 0

Sub DisplayModule(page As Integer, line As Integer)
   maxline = 100    
   For line = 0 To maxline
      Print #page, Spc(6); "Display in String"
      Print #page, Spc(8); "{"
      Print #page, Spc(10); """" & line & """"
      Print #page, Spc(8); "}" 
      Print #page, Spc(8); "next"
   Next
End Sub