|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
rem ★正規表現による文字列置換関数(VBA) rem 引数 rem 第1 ･･･ source ･･･ 置換対象文字列 rem 第2 ･･･ pattern ･･･ 検索文字(正規表現) rem 第3 ･･･ dest ･･･ 置換文字 Public Function regexp_replace(source, pattern, dest) On Error GoTo err_proc rem On Error Resume Next Dim Reg As Object Set Reg = CreateObject("VBScript.RegExp") Reg.pattern = pattern Reg.IgnoreCase = False Reg.Global = True regexp_replace = Reg.Replace(source, dest) Exit Function err_proc: regexp_replace = "#Error" End Function |
Category: VisualBasic
VBSによる日付のフォルダを生成するスクリプト。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
'================================================= ' 本日の日付のフォルダ生成 '================================================= ' 変数を宣言 Dim str_path ' ファイルストリーム・オブジェクト生成 Set objFS = CreateObject("Scripting.FileSystemObject") ' フォルダを生成する str_path = objFS.CreateFolder(nowstring()) '------------------------------------------------- '日時をyyMMdd形式にする '------------------------------------------------- Function nowstring() Dim nows nows = Right("0000" & Year(Now()) , 2 ) & Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2) nowstring = nows End Function '------------------------------------------------- |
Worksheets(“対象シート名”).Range(“対象セル̶ […]
ActiveSheet.Name = “変更するシート名” 変更するシート名：現在選択 […]
Worksheets(“コピー元シート名”).Copy After:=Workshee […]
またしてもサイトオープン！ 今回もプログラム関連！ その名も、 ★各種プログラミング言語の基本的な書き方 h […]
ADOのRecordsetで、実行したSQLから抽出レコードを全フィールド分取ろうとすると、 対象フィールド名 […]
今日、VB2010でサイトのステータスコードを一括チェックできるソフトを作ってみた！ 「config.txt」 […]