簡単なスクリプトを実行するには？ (ID:74889)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 P.S. マルチステートメントがいやなら、たとえばこう。 Private Sub Command2_Click() Dim objVBS As New ScriptControl Dim strScript As String strScript = "" strScript = strScript & " Dim A , B " & vbCrLf strScript = strScript & " A = ""text1"" " & vbCrLf strScript = strScript & " B = ""text2"" " & vbCrLf strScript = strScript & " MsgBox A & B " & vbCrLf objVBS.Language = "VBScript" objVBS.ExecuteStatement strScript End Sub