▼質問
SaveFileDialogコンポーネントを使ってＣＳＶファイルを保存しているんだけど

ディレクトリを変更して保存するとアプリケーションがフリーズするんだ。

どうしてか教えてくれ！

▼回答
SaveFileDialogコンポーネントを使ってディレクトリを操作するとSaveFileDialogコンポーネントの

InitialDirectoryが変わってしまうことが原因だと思うよ。

だから、次の様にInitialDirectoryのバックアップをしてから最後にまた戻せばいいんだ。


Dim bakDir As String = SaveFileDialog1.InitialDirectory

SaveFileDialog1.InitialDirectory = bakDir

---

▼質問
次の文字列を挿入・更新をＳＱＬ文でする方法がわからないから教えてくれ！

!"#$%&()=~{`+*}_?><\'

▼回答
挿入・更新はシングルクウォーテーションを２つ並べてＳＱＬ文を作ればいいんだ。


▼質問 次のＳＱＬ文を実行するとうまくカウントされないんだ。
SELECT COUNT(*) FROM テーブル名 WHERE フィールド = '!"#$%&()=~{`+*}_?><\'''

どうしたらできるか教えてくれ！

▼回答
LIKE文を使えばできるよ。

SELECT COUNT(*) FROM テーブル名 WHERE フィールド LIKE '!"#$%&()=~{`+*}_?><\%'


---

▼質問
EXCELの幅を設定したり、折り返し設定をしたいんだ。

どうやったらできるか教えてくれ！

▼回答
次を参考にしてくれ！

Dim xlApp As Object = CreateObject("Excel.Application")
Dim wWorksheet As Excel.Worksheet = CType(xlApp.ActiveWorkbook.ActiveSheet, Excel.Worksheet)

CType(wWorksheet.Cells(1, 1), Excel.Range).ColumnWidth = 10
CType(wWorksheet.Cells(1, 1), Excel.Range).WrapText = True
wWorksheet.Cells(1, 1) = "あいうえおかきくけこ"

---