请教件事，Open "新建文本文档" For Output As #1成果输出位置怎么固定？

空之镜域

同一台电脑运行，别人写的程序也没有专门写地址语句、文件保存类型，但是别人的宏能直接生成dxf文件。我写的程序结果保存在我的文档里，而且生成的是不带后缀的文件，手动加后缀或者写成Open "新建文本文档.dxf" For Output As #1。
" X/ U9 N3 f  I7 J, B8 ^PS：生成的文件是没有问题的。结果老是存在我的文档里这个还没解决。

woaishuijia

! P. y( z: r$ I1 w8 s
结合你另外一个帖子“

拿到一个大神用Excel编写VBA程序生成CAD的程序，但是里面的语句不太懂

”，我好像明白你的意思了。
2 i# P% w- g4 _+ \& E! C- k那个帖子里的Print #语句后面的文件号用的是1，这是有问题的。按照VB的语法规则，这个文件号是一个1~511的正整数，应该是由电脑自动生成。你这个直接使用1的情况，除非电脑只打开了一个文档，否则文件号1被其它文档占用，就出错了。只能先手动创建文档，再执行程序，我在那个帖子里的回复就是这样子的（那个回复为了简短，没有讨论编程技巧），为了保证程序顺利运行，要求先创建文档。
6 V: H8 P" C5 Y把那个主程序和子程序的代码改一下

1. Dim FileNumber As Integer
   5 z8 G( W) g. M; }  k
2. 
   * P9 f3 |! q+ L- {% ~
3. Sub A()
   + G7 q, C! V5 `& k  R& c, G
4.     FileNumber = FreeFile()
   
5.     Open "c:\1.dxf" For Output As #FileNumber
   / Q4 K% B. d5 T" t5 c8 \! Q
6.     Print #FileNumber, 0
   
7.     Print #FileNumber, "SECTION"
   
8.     Print #FileNumber, 2
   " ]2 J  l7 s' g6 N
9.     Print #FileNumber, "ENTITIES"
   ( w1 @$ s( f7 A2 ?* {! D
10.     Print #FileNumber, 0
    ' P" ?( x- |$ R% T8 {
11.     DxfLine 0, 0, 100, 100, 1, "Continuous"
    8 d  \& r/ Q+ s/ x
12.     Print #FileNumber, "ENDSEC"
    7 n6 l- z- T( Y- K) {. r# T. O+ h( p
13.     Print #FileNumber, 0
    
14.     Print #FileNumber, "EOF"
    8 k- o& N" a" Y
15.     Close #FileNumber
    5 k! J6 R& e  Q  K; c; [
16. End Sub
    - Y% D+ X& P% Z) N9 s0 M
17. 
    
18. Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)
    
19.     Print #FileNumber, "LINE"
    # f% c  l  P  E
20.     Print #FileNumber, 8
    2 n5 ^! i, D. A% w0 P5 @; H+ t" W( V
21.     Print #FileNumber, "0"
    
22.     If Typ <> "" Then
    
23.        Print #FileNumber, 6
    . Y$ Z5 b3 I5 i* q) S4 f
24.        Print #FileNumber, Typ
    
25.     End If
    
26.     Print #FileNumber, 62
    , B8 |! C  b$ e- F* K; N. t" R
27.     Print #FileNumber, cl
    1 G) d' j. H" B# a& N+ c
28.     Print #FileNumber, 10
    
29.     Print #FileNumber, xs
    6 G/ u* A6 x& ~( L% K& T
30.     Print #FileNumber, 20
    
31.     Print #FileNumber, ys
    ; L, J5 N1 W) [! u/ Z0 `* ^; U
32.     Print #FileNumber, 30
    + Z: y5 ?* }3 x/ A
33.     Print #FileNumber, 0#
    ) e  F$ [$ H7 p. S% t
34.     Print #FileNumber, 11
    / c5 g( b" j8 @
35.     Print #FileNumber, xe
    
36.     Print #FileNumber, 21
    
37.     Print #FileNumber, ye
    
38.     Print #FileNumber, 31
    
39.     Print #FileNumber, 0#
    
40.     Print #FileNumber, 0
    ( @7 @3 |' q6 I0 p- ]
41. End Sub
    

复制代码

代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量，用于保存文件号
第四行用 FreeFile 函数获得可用的文件号，后面的代码都使用这个文件号，包括子程序中的Print #语句，这也是使用全局变量的原因
! Q. o* {" I# E2 n7 e: ^- q第十八行，子程序的参数中的前四个都使用了显式类型声明字符“#”，表明这是Double 数据类型；第六个参数使用了Optional 关键字，表明这后面的参数是可选的：在调用子程序时，如果线形是“BYLAYER”，则不必带这个参数。如果不用这个关键字，在调用子程序时，就必须有这个参数，尽管它可能是空字符串。
5 _1 T" A2 z0 Y9 C' o3 O第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行，都去掉了双引号和空格，这里没必要使用字符串类型，用整型就可以
3 g/ r& u( \! s0 E, v' p6 t第二十二、二十四行去掉了变量后面的显式类型声明字符“$”，没必要（已经在在第十八行的参数列表中声明了）。同理，第二十七行去掉了双引号及其内部空格及逗号，去掉了变量后面的显式类型声明字符“%”，没必要
! S3 u  l& s$ o& R第三十三、三十九行把"0.00"改成了0#
  {3 ~/ V$ ^) a去掉了原子程序中的

1. Label:
   
2.      Exit Sub

复制代码