[戻]-35636/親

---

GetObjectでExcelファイルを加工するとExcelファイルが壊れる

---

suekun

環境/言語:[windows11/vb.net]　
分類:[.NET]　

お世話になっております。
vb.netでgetobjectでExcelファイルを読込み保存するとExcelファイルが破損します。
下記ソースになります。何か問題がありますでしょうか？

Private Sub LIST_Clear()
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Dim LastRow As Integer
Try
wb = GetObject(ListFile)
Catch ex As Exception

MessageBox.Show(ex.Message)

End Try
sh = wb.Sheets(“Sheet1”)
LastRow = sh.Cells(sh.Rows.Count, 1).end(Excel.XlDirection.xlUp).row
Dim tl = sh.Cells(2, 1)
Dim br = sh.Cells(LastRow + 1, 7)
Dim wrange = sh.Range(tl, br)
wrange.ClearContents()
wb.Save()　←ここでExcelブックが壊れる（シートが参照できなくなります）
wb.Close()
End Sub

12/11 11:53
[編|消]

---

ﾚｽを書く
1番最初のﾚｽ

---

|次ﾚｽ5>
ﾚｽ古い順
▽ﾚｽ(9)1-5

---

No35645
Re[6]: GetObjectでExcelファイ�..
suekun
(12/18 15:31)

---

No35644
Re[6]: GetObjectでExcelファイ�..
suekun
(12/13 08:56)

---

No35643
Re[6]: GetObjectでExcelファイ�..
魔界の仮面弁士
(12/12 16:23)

---

No35642
Re[5]: GetObjectでExcelファイ�..
魔界の仮面弁士
(12/12 16:11)

---

No35641
Re[4]: GetObjectでExcelファイ�..
suekun
(12/12 07:28)

---

|次ﾚｽ5>

---

Child K-Tai