菜鸟求助——txt脚本如何得到变量的值

Question

sub中定义多个变量并赋值后，txt 脚本程序要调用这些变量的值该如何调用请高手帮忙

Answer 1

要放到模块里用Public定义,在sub里赋值

Answer 2

Private Sub Command1_Click()    
    
    IJ_Data = "mimafapiao"
    Dim strScript As String
    
    Open "D:\text.txt" For Binary As #1
     strScript = Input(LOF(1), 1)
    Close #1
    Me.ScriptControl1.AddCode strScript
    End Sub
我的要求是在txt格式的程序中可以取到IJ_Data的值

Answer 3

工程＝＝＝＝＝》添加＝＝＝＝＝》模块，在模块代码区输入： Public IJ_Data As String

Answer 4

不过我不怎么明白何谓“txt脚本程序”？

Answer 5

在scriptcontrol运行vbs代码，如果要在vbs中使用vb中的变量，需要将变量定义成模块级变量，并在  scriptcontrol中添加对象。'Form1 Code
'在窗体上放一个ScritControl控件
Option Explicit
Public sMsg As String
Private Sub Command1_Click()
sMsg = "Hello"
ScriptControl1.AddObject "Me", Me, True
ScriptControl1.ExecuteStatement "msgbox smsg"
End Sub
Option Explicit
Public sMsg As String
Private Sub Command1_Click()
sMsg = "Hello"
ScriptControl1.AddObject "Me", Me, True
ScriptControl1.ExecuteStatement "msgbox smsg"
End Sub

Answer 6

的确没有明白你的意思什么叫txt 脚本程序？你的目的是什么呢？