ExcelVBA

Last-modified: 2025-10-21 (火) 15:08:56

設定

エクセルVBAのフォーム・モジュール名の変更

▼操作手順：モジュール名を変更する
プロジェクトエクスプローラで名前を変更したいモジュールを選択
　↓
メニュー［表示］－［プロパティ］をクリック
　↓
プロパティウィンドウの［（オブジェクト名）］欄で名前を変更し、
［Enter］キーを押す

一番右のシートを選択

●サンプル1●

Sub CountSamp1()
 MsgBox "シート枚数　　　：" & Sheets.Count & Chr(13) & "ワークシート枚数：" & Worksheets.Count
End Sub

●サンプル2●

Sub CountSamp2()
 Worksheets(Worksheets.Count).Select  '---最後のワークシートを選択
End Sub

参考

ファイル選択ダイアログ画面を開く(EXCEL用)

※　EXCELでしか使えない

サンプル

Dim File As String
File = Application.GetOpenFilename( _
FileFilter:="テキストデータ,*.TXT" & _
　　",すべてのファイル(*.*),*.*" _
　　, FilterIndex:=0 _
　　, Title:="直送データを選択して下さい！")

※ VBAの参照設定で,Microsoft Office 12.0 Object Library　にチェックを入れる
参考

ODBC接続

前提条件
・OracleClientがインストールしてある事！
・ODBC設定は、利用するOracleClientのbit数と同じもので設定する事！

サンプル

Function OracleLastSyainNo() As Integer
   Dim conn As Object
   Dim rs As Object
   Dim sql As String
   '※ Create ADODB connection
   Set conn = CreateObject("ADODB.Connection")
   Set rs = CreateObject("ADODB.Recordset")
   '※ 接続文字列（DSNを使用）
   conn.Open "DSN=DSN名;UID=ユーザID;PWD=パスワード;"
   '※ SQL実行例
   '※ 実行するSQLコマンド (★ここを編集してください★)
   Dim SQL_COMMAND As String
   SQL_COMMAND = "SELECT Min(JYUGCODE) FROM TTM006 "
   SQL_COMMAND = SQL_COMMAND & "WHERE RECSTR = (SELECT MAX(RECSTR) FROM TTM006);"
    rs.Open SQL_COMMAND, conn
   '※ 結果をExcelに出力（例：A1から）
   Dim i As Integer
   Dim LastNo As Integer
   For i = 0 To rs.Fields.Count - 1
       LastNo = rs.Fields(i).Value
   Next i
   OracleLastSyainNo = LastNo
End Function