□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| オブジェクトはこのプロパティまたはメソッドをサポートしていませんについて | |
|---|---|
[195557] オブジェクトはこのプロパティまたはメソッドをサポートしていませんについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ビギナー1 -(2023/01/26(22:56)) □U R L/ 以下のマクロは定数のみを削除する行で「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と表示されます。
「With tBook.Sheets(1)」を入れなければ動きますが、他のファイルも開いているので、ファイル名とシート名を指定したいのです。
よろしくお願いいたします。
Sub 定数のみを削除()
Dim mypath, fname As String, tBook As Workbook
mypath = ThisWorkbook.Path & "\"
fname = Dir(mypath & "test*.xlsx")
Set tBook = Workbooks.Open(mypath & fname)
With tBook.Sheets(1)
.Range("A1:B4,A7:B9,D1:D7").Select
.Range("D1").Activate
.Selection.SpecialCells(xlCellTypeConstants, 23).Select 'エラー
.Selection.ClearContents
End With
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195558] Re[1]: オブジェクトはこのプロパティまたはメソッドをサポートしていませんについて- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/01/26(23:13)) □U R L/ Selectしない
On Error Resume Next
tBook.Sheets(1).Range("A1:B4,A7:B9,D1:D7").SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195559] Re[2]: オブジェクトはこのプロパティまたはメソッドをサポートしていませんについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ ビギナー1 -(2023/01/26(23:23)) □U R L/ 早々にありがとうございました。 助かりました。 | |