c:\testフォルダ内のサブフォルダ名を昇順にしてエクセルファイルに出力するスクリプトで、サブフォルダ名を罫線で囲みたいのですがうまくいきません。
$folderPath = "c:\test"
$excelFilePath = "c:\test\music_cd.xls"
# Get all subfolders in the folder
$subFolders = Get-ChildItem -Path $folderPath -Directory
# Sort the subfolders by name in ascending order
$subFolders = $subFolders | Sort-Object -Property Name
# Create a new Excel workbook
$excel = New-Object -ComObject Excel.Application
$workbook = $excel.Workbooks.Add()
# Add a new worksheet to the workbook
$worksheet = $workbook.Worksheets.Add()
# Add the subfolder names to the worksheet
$row = 1
foreach ($subFolder in $subFolders) {
$worksheet.Cells.Item($row, 1) = $subFolder.Name
$row++
}
# Add borders to the cells
$range = $worksheet.Range("A1:A$subFolders.Count")
$range.Borders.LineStyle = 1
# Save the workbook as music_cd.xls
$workbook.SaveAs($excelFilePath)
# Close the workbook and Excel application
$workbook.Close()
$excel.Quit()
実行すると、
HRESULT からの例外:0x800A03EC
発生場所 C:\test\music_cd.ps1:25 文字:1
+ $range = $worksheet.Range("A1:A$subFolders.Count")
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : OperationStopped: (:) [], COMException
+ FullyQualifiedErrorId : System.Runtime.InteropServices.COMException
このオブジェクトにプロパティ 'LineStyle' が見つかりません。プロパティが存在し、設定可能であることを確認してください。
発生場所 C:\test\music_cd.ps1:26 文字:1
+ $range.Borders.LineStyle = 1
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: (:) []、RuntimeException
+ FullyQualifiedErrorId : PropertyNotFound
とエラーが出ます。サブフォルダ名だけの罫線のないエクセルファイルが出力されます。
どうすればうまくいくでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBでexcelのプレビュー画面表示
-
VBscriptでEXCELを起動
-
VBAマクロ実行時エラーの修正に...
-
VBA シートをコピーする際に Co...
-
B列の最終行までA列をオート...
-
マクロの「SaveAs」でエラーが...
-
Worksheets メソッドは失敗しま...
-
別ブックをダイアログボックス...
-
EXCELのSheet番号って変更でき...
-
「段」と「行」の違いがよくわ...
-
列方向、行方向の定義
-
エクセルで特定の文字列が入っ...
-
ワイルドカード「*」を使うとう...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
[EXCEL]ボタン押す→時刻が表に...
-
【VBA】【ユーザーフォーム_Lis...
-
エクセルで離れた列を選択して...
-
Excel VBAでのWorksheet_Change...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBでexcelのプレビュー画面表示
-
VBscriptでEXCELを起動
-
VB.NET Excelの解放
-
フィルタ係数から特性を求める...
-
リンクのExcelファイルをIE上で...
-
beep音を変えたい
-
vbscriptでエクセルを操作する
-
VB.NETでエクセル操作
-
あなたは何も恐れる必要はない...
-
powershellスクリプトで出力し...
-
B列の最終行までA列をオート...
-
VBAマクロ実行時エラーの修正に...
-
VBA シートをコピーする際に Co...
-
Worksheets メソッドは失敗しま...
-
あああ..ああい..ああう とい...
-
マクロの「SaveAs」でエラーが...
-
エクセルVBAが途中で止まります
-
エクセルで特定の文字列が入っ...
-
「段」と「行」の違いがよくわ...
おすすめ情報