VBAのコード のバックアップ(No.2)
- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- VBAのコード へ行く。
- 1 (2010-08-20 (金) 10:01:59)
- 2 (2010-08-20 (金) 10:37:14)
- 3 (2010-09-21 (火) 12:24:15)
- 4 (2010-09-21 (火) 16:03:14)
目次 †
趣旨 †
何度も同じようなコードをインターネットから探しては
自分のルールに沿ってクラス化してきたが、
何度もやるのはめんどくさくなったから、
頻度の高いところをまとめる。
できるならば、クラスをそのまま貼り付ける。
ファイル操作 †
一時ファイル取得 †
' 一時ファイル名取得用 API の宣言 Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" _ (ByVal lpszPath As String, ByVal lpPrefixString As String, _ ByVal wUnique As Long, ByVal lpTempFileName As String) As Long ' 一時ファイル名の取得 Public Function udGetTempFileName(argPath) As String Dim lngRet As Long Dim strFileName As String * 255 lngRet = GetTempFileName(argPath, "acc", 0&, strFileName) udGetTempFileName = Left(strFileName, InStr(strFileName, vbNullChar) - 1) End Function
