1122さんありがとうございます。 もう少しお願いします。 下記スクリプトでテキストボックスは作成できたのですが、文字が入りません。 Set xlApp = CreateObject("Excel.application") xlApp.Workbooks.Add Set xlSheet1 = xlApp.Workbooks(1).Worksheets(1) 'Excelを表示する場合 xlApp.Visible = True With xlSheet1 .Shapes.AddTextbox(1, 34.5, 87.75,192.75, 78.75).Select .Selection.Characters.Text = "aiueo" End With Excelとノーツスクリプトの関係で???です。 HPなどないでしょうか。