Excelがインストールされているかチェック If Not Type.GetTypeFromProgID("Excel.Application") Is Nothing Then MsgBox("Excelはインストールされています。") Else MsgBox("Excelはインストールされていません。") End If http://d.hatena.ne.jp/gsf_zero…

VB.NET VBScript New String("*", 10) = String(10, "*") http://www.atmarkit.co.jp/fdotnet/dotnettips/052repeatchar/repeatchar.html

Insert する文字列のエスケープ Function FixForSQL(tmpText1 As String) As String ' 作業変数を定義します。 Dim tmpText2 As String ' 作業変数を作成します。 tmpText2 = tmpText1 & "" ' ディスク容量節約のため CR-LF シーケンスを CR に圧縮します。 …

追加した項目で名前がHogeHogeの項目があれば Listbox の項目を選択する While (sqlReader.Reader.Read()) ListBox1.Items.Add(sqlReader.Reader.GetString(0)) If sqlReader.Reader.GetString(0) = ”HogeHoge” Then ListBox1.SelectedIndex = ListBox1.Item…

[Access 単票フォーム] http://www.serpress.co.jp/access/vba015.html [データビュー フォームビュー 切り替えvba] http://www.tsware.jp/tips/tips_571.htm DoCmd.RunCommand acCmdDatasheetView 'データシートビュー DoCmd.RunCommand acCmdFormView 'フ…

ブログはじめました