我想用一个对话框让用户保存一个.xls文件，然后用select into的办法写入这个xls文件，但是每次都提示“不存在该xls文件或者你没有使用该文件的权限”我以前没有用过这种导出方式，但是这次要求一定要用这种导出方式。、


我想问一下高手，假如我的SQL2000，用户名为sa，密码123，数据库test,服务器T1,想在VB中
实现我说的功能，完整代码该怎么写呢？

不胜感激！！！！！！！！！！！！
With OutPutCommonDialog
        .Filter = fun_Conv("Excel 文件 (*.xls)|*.xls|Word 文档(*.doc)|*.doc|纯文本(*.txt)|*.txt|Html 文档(*.Htm)|*.htm")
        .FilterIndex = 1
        .Flags = 6
        .DialogTitle = fun_Conv("报表输出到文件")
        .Action = 2
        filenum = FreeFile()
        Open .FileName For Output As #filenum
        myStr = StrReverse(.FileName) '串取反
        myPos = InStr(myStr, "\") '在反字符串中，找从左开始第一个\的位置
        myPath = StrReverse(Mid(myStr, myPos)) '取目录部分，并还原.
        myStr = StrReverse(Left(myStr, myPos - 1)) '取文件名
        
        
        Export_Str = "select * into [Excel8.0;database=" & .FileName & "].VTable from XS_OrderSubForExcel"
        
        Cw_DataEnvi.DataConnect.Execute (Sqlstr)
        .FileName = ""
        Close filenum
 End With