前提・実現したいこと

PowershellにてExcelのテキストボックス(ActiveX)に文字を入力したい

該当のソースコード

# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application

# 可視化する
$excel.Visible = $true

# 既存のExcelファイルを開く
$book = $excel.Workbooks.Open("C:*")

# テキストボックスへ文字を入力
$shp = $book.ActiveSheet.Shapes("TextBox1")
$shp.TextFrame.TextRange.Text = "あいうえお"

試したこと

VBAにて
ActiveSheet.TextBox1.Text = "あいうえお"
を実行するとテキストボックスに文字が入力されます。
Powershellから同様にテキストボックスへ文字を入力するにはどうしたら良いでしょうか。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

次のコードでできることを確認しました。

PowerShell
1$path = ファイルのフルパス
2$excel = New-Object -ComObject Excel.Application
3$excel.Visible = $true
4$book = $excel.Workbooks.Open($path)
5$sheet = $book.ActiveSheet
6$textBox = $sheet.Shapes.Item("TextBox 1")
7$textBox.TextFrame2.TextRange.Text = "新しいテキスト"

追記

ActiveX の方です。

PowerShell
1$path = ファイルのフルパス
2$excel = New-Object -ComObject Excel.Application
3$excel.Visible = $true
4$book = $excel.Workbooks.Open($path)
5$sheet = $book.ActiveSheet
6$textBox = $sheet.Shapes.Item("TextBox1")
7$textBox.OLEFormat.Object.Object.Text = "新しいテキスト"

投稿2019/07/07 04:33

編集2019/07/07 10:00

Zuishin

総合スコア28660

kurz

2019/07/07 08:12

最終行のコードを実行すると以下のエラーが出力されます。 Powershellはv5.1でExcelは2016を使用しております。 officeのバージョン等による問題でしょうか？ ``` ＞$textBox.TextFrame2.TextRange.Text = "新しいテキスト" このオブジェクトにプロパティ 'Text' が見つかりません。プロパティが存在し、設定可能であることを確認してください。発生場所行:1 文字:1 + $textBox.TextFrame2.TextRange.Text = "新しいテキスト" + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : InvalidOperation: (:) []、RuntimeException + FullyQualifiedErrorId : PropertyNotFound ```

Zuishin

2019/07/07 08:28

そうかもしれませんし、エクセルファイルの問題かもしれませんし、コードの打ち間違いかもしれませんが、こちらからは確認できません。うちの環境では動いていますし、ドキュメントでもこのプロパティがあることが確認できます。 https://docs.microsoft.com/ja-jp/office/vba/api/office.textrange2

kurz

2019/07/07 08:59 編集

TextFrame2.TextRange.Textについて調べてわかったのですが、こちらはリボンの挿入タブにある「テキストボックス」オブジェクトの操作になるんですね。私としてはActiveXのテキストボックス（開発タブの挿入から選択）に文字を挿入したいという意図で質問していました。質問内容がわかりにくく申し訳ありません。

Zuishin

2019/07/07 08:59

それが ActiveX のテキストボックスですが。

Zuishin

2019/07/07 09:00

それ以外のものであるなら、どのように挿入するのか詳細な手順を書いてください。

kurz

2019/07/07 09:03

そちらもActiveX のテキストボックスなんですね。私の認識が間違ってました。リボンの［開発］－［挿入］－［テキストボックス（ActiveXコントロール）］のことを聞きたかったです。 https://excel-2013.blogspot.com/2014/07/activex_9.html

kurz

2019/07/07 10:06

追記していただいたコードで、テキストボックスへの文字の入力が確認できました。回答いただきありがとうございました。