请教先生们,我用以下代码可将二维内存数据a(i,j)导出到"电子表"中,但导出在电子表中的形式是i*j行1列,我想要的结果是i行j列的形式,请教如何修改以下代码可满足要求,谢谢

dzb = "电子表.xls"
Open dzb For Output As #1
 For i = 1 To 行数
 For j = 1 To 列数
 Print #1, a(i, j)
 Next j
 Print ;
 Next i

先生您好,这块代码运行下来可以将数据写入电子表并且是i行j列的形式,但最后保存时无法保存到指定的电子文件中,我分别试过相对路径和绝对路径,并且提示语指向的代码是这一行:xlsheet.SaveAs App.Path & "\b.xls"  
在文件夹中先建立b.xls 也不成功,请先生指点,谢谢