多谢efan2000的回复，再请问：

crazy_111

我已编了两个数据文件：（数据文件中的数据已在前面赋过值了）
一个是写入数据的（在同事的工程中）
Dim filename As String
filename = Application.Path & "\cs.data"
Open filename For Output As #1
Write #1, lzw
Write #1, lzg
Write #1, lzc
Write #1, ytm
Write #1, ywm
Write #1, yrj
Write #1, yc
Write #1, yw
Write #1, yg
Write #1, pbc
Write #1, pbk
Write #1, pbh
Write #1, dyh
Write #1, deh
Write #1, dsh
Write #1, qyh
Write #1, qeh
Write #1, qsh
Write #1, cyh
Write #1, ceh
Write #1, csh
Write #1, cg
Write #1, ydk
Close (1)
一个是读出数据的：（在我的工程中）
Dim filename As String
filename = Application.Path & "\cs.data"
Open filename For Input As #2
Do
Input #2, lzw
Input #2, lzg
Input #2, lzc
Input #2, ytm
Input #2, ywm
Input #2, yrj
Input #2, yc
Input #2, yw
Input #2, yg
Input #2, pbc
Input #2, pbk
Input #2, pbh
Input #2, dyh
Input #2, deh
Input #2, dsh
Input #2, qyh
Input #2, qeh
Input #2, qsh
Input #2, cyh
Input #2, ceh
Input #2, csh
Input #2, cg
Input #2, ydk
Loop Until EOF(2)
Close (2)
我想用#2写入的数据作为参数来完成我的绘图工作，但运行时出错
不知你所说的接口是怎么实现的？？

efan2000

这样子不行，每个变量的值的长度是变化的，可能你写入的时候是一种格式，但读出的时候就错位了，返回的值跟写入的值不一样，简单一点的就是将变量声明为记录型的，这样长度一定，或者每行只写一个数据也行。