![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Excel(エクセル) excel VBA フォルダ内のサブフォルダを検索してハイパーリンクを貼りたい 1 2021/10/25 11:59
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 今wordで専用があればaquarius0319にフレッツがあればsyunsukeにINSがあればb 4 2021/11/07 13:13
- PowerPoint(パワーポイント) エクセルのマクロ設定について教えてください。 2 2021/10/29 11:36
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マルチディスプレイを使用して...
-
エクセル マクロ オートフィ...
-
VBAマクロ実行時エラーの修正に...
-
B列の最終行までA列をオート...
-
VBA シートをコピーする際に Co...
-
エクセルで離れた列を選択して...
-
エクセルVBA 配列からセルに「...
-
VLOOKUPの列番号の最大は?
-
エクセル2016で時間を入力して...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
LEFT関数とIF関数の組み合わせ...
-
vbaで指定したセルより下の行を...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
エクセルで特定の文字列が入っ...
-
エクセルで複数のシートのクリ...
-
Excelのマクロについて教えてく...
-
罫線の斜線を自動で引くマクロ
-
Excelで空白セル直前のセルデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBでexcelのプレビュー画面表示
-
VBscriptでEXCELを起動
-
beep音を変えたい
-
vbscriptでエクセルを操作する
-
あなたは何も恐れる必要はない...
-
フィルタ係数から特性を求める...
-
powershellスクリプトで出力し...
-
VB.NET Excelの解放
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
マクロの「SaveAs」でエラーが...
-
エクセルで特定の文字列が入っ...
-
エクセルで離れた列を選択して...
-
B列の最終行までA列をオート...
-
VBA シートをコピーする際に Co...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
Excelで、あるセルの値に応じて...
-
エクセルVBAが途中で止まります
おすすめ情報