vb.netでのExcelファイルそうさ - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

HOME HELP 新規作成新着記事ツリー表示スレッド表示トピック表示発言ランクファイル一覧検索過去ログ

■35487 / 親階層)

　vb.netでのExcelファイルそうさ

□投稿者/ 独学学生一般人(1回)-(2023/08/18(Fri) 19:37:57)

環境/言語:[Windows10]　
分類:[.NET]　

vb.netで下記プログラムを実行するとバックグラウンドプロセスにタスクが必ず残ってしまいます。
フォームアプリを終了するとプロセスが消えるのですがバックグラウンドプロセスに残らない方法はありますか？

private sub btn作成_Click(sender as object,e as eventargs)handles btn作成.click
If txtpath.text =“” then
exit sub
end if

btn作成.enabled =false

dim str as string =“”
dim strcount =0

dim ex as new
Microsoft.office.interop.Excel.application
dim sh as Microsoft.office.interop.Excel.worksheet
dim wb as Microsoft.office.interop.Excel.workbook
dim range as Microsoft.office.interop.Excel.range

For rw as integer =0 to dgv.rowcount -1
if dgv.rows(rw).cells(“選択”).value=1 then
str=dgv.row(rw).cells(“品名”).value & vbcrlf
str &= dgv.row(rw).cells(“数量”).value & vbcrlf
str &= dgv.row(rw).cells(“単位”).value & vbcrlf

if strcount =0 then
wb=ex.workbooks.open (txtpath.text)
sh=ex.worksheets(“発注”)

dim strarry() as string =str.split({environment.newline},stringsplitoptions.none)
dim arrycount =0

range = sh.range(“B” & 5 + strcount & “:I” & 5 + strcount)

for col as integer =1 to range.columns.count
range.cells(1,col).value =strarry(arrycount)
system.runtime.InteropService.Marshal.release comobject(range.cells(1,col))
arrycount =arrycount + 1
next

strcount =strcount + 1

end if
next

wb.save()
we.close(false)
ex.quit()

system.runtime.InteropService.Marshal.release comobject(range)
system.runtime.InteropService.Marshal.release comobject(sh)
system.runtime.InteropService.Marshal.release comobject(wb)
system.runtime.InteropService.Marshal.release comobject(ex)

Range=nothing
Sh=nothing
Wb=nothing
Ex=nothing

gc .Collect()
gc.waitforpendingfinalizers()

btn作成.enabled =true

Msgbox(“作業完了”)
end sub

マルチポストを報告

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
親記事	→Re[1]: vb.netでのExcelファイルそうさ /Hongliang →Re[1]: vb.netでのExcelファイルそうさ /KOZ
vb.netでのExcelファイルそうさ / 独学学生 (23/08/18(Fri) 19:37) #35487 ←Now
`├` Re[1]: vb.netでのExcelファイルそうさ / Hongliang (23/08/18(Fri) 20:11) #35488
`└` Re[1]: vb.netでのExcelファイルそうさ / KOZ (23/08/18(Fri) 20:16) #35489
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35487に返信(独学学生さんの記事) > vb.netで下記プログラムを実行するとバックグラウンドプロセスにタスクが必ず残ってしまいます。 > フォームアプリを終了するとプロセスが消えるのですがバックグラウンドプロセスに残らない方法はありますか？ > > private sub btn作成_Click(sender as object,e as eventargs)handles btn作成.click > If txtpath.text =“” then > exit sub > end if > > btn作成.enabled =false > > dim str as string =“” > dim strcount =0 > > dim ex as new > Microsoft.office.interop.Excel.application > dim sh as Microsoft.office.interop.Excel.worksheet > dim wb as Microsoft.office.interop.Excel.workbook > dim range as Microsoft.office.interop.Excel.range > > For rw as integer =0 to dgv.rowcount -1 > if dgv.rows(rw).cells(“選択”).value=1 then > str=dgv.row(rw).cells(“品名”).value & vbcrlf > str &= dgv.row(rw).cells(“数量”).value & vbcrlf > str &= dgv.row(rw).cells(“単位”).value & vbcrlf > > if strcount =0 then > wb=ex.workbooks.open (txtpath.text) > sh=ex.worksheets(“発注”) > > dim strarry() as string =str.split({environment.newline},stringsplitoptions.none) > dim arrycount =0 > > range = sh.range(“B” & 5 + strcount & “:I” & 5 + strcount) > > for col as integer =1 to range.columns.count > range.cells(1,col).value =strarry(arrycount) > system.runtime.InteropService.Marshal.release comobject(range.cells(1,col)) > arrycount =arrycount + 1 > next > > strcount =strcount + 1 > > end if > next > > wb.save() > we.close(false) > ex.quit() > > system.runtime.InteropService.Marshal.release comobject(range) > system.runtime.InteropService.Marshal.release comobject(sh) > system.runtime.InteropService.Marshal.release comobject(wb) > system.runtime.InteropService.Marshal.release comobject(ex) > > Range=nothing > Sh=nothing > Wb=nothing > Ex=nothing > > gc .Collect() > gc.waitforpendingfinalizers() > > btn作成.enabled =true > > Msgbox(“作業完了”) > end sub >
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/

HOME HELP 新規作成新着記事ツリー表示スレッド表示トピック表示発言ランクファイル一覧検索過去ログ

- Child Tree -