select name from sqlite_master where type='table';
ExcelVBA Dir関数でのフォルダ存在チェック
Public Function IsExistDirA(a_sFolder As String) As Boolean Dim result result = Dir(a_sFolder, vbDirectory) If result = "" Then '// フォルダが存在しない IsExistDirA = False Else '// フォルダが存在する IsExistDirA = True End If End Function
ネタ元
ExcelVBA 指定時間でダイアログを閉じる
検索上位ででてくるWSH使うのは安定しないから使わないほうが良い
Private Declare Function MessageBoxTimeoutA Lib "user32" ( _ ByVal hWnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal uType As Long, _ ByVal wLanguageId As Long, _ ByVal dwMilliseconds As Long) As Long ... Function TimeoutMsgBox(aStr As String, aTitle As String, aTimeouts As Long, aNType As Long) As Long Dim AnswerVal As Long AnswerVal = MessageBoxTimeoutA(0, aStr, aTitle, aNType, 0, aTimeouts * 1000) TimeoutMsgBox = AnswerVal End Function Sub テスト() If TimeoutMsgBox("5秒以内にキャンセルしないと自動でブックを閉じます", "確認", 5, vbOKCancel) <> vbCancel Then 'ブック閉じる ActiveWorkbook.Close SaveChanges:=True End If End Sub
ネタ元
ExcelVBA シート上の指定した範囲をCSVファイルへ出力する
別ブックをつくってコピーしてCSV出力、保存せず閉じるという技。
Option Explicit Sub sample() '出力するCSVファイル Const CSV_FILE As String = "C:\Users\user\Desktop\sample.csv" Dim targetRange As Range Dim wb As Workbook Dim fso As Object 'CSVファイルへ出力する範囲を指定 ※例としてシート「sample」のセル「B2」から続く一連の範囲を指定 Set targetRange = Worksheets("sample").Range("B2").CurrentRegion '新規ブックを作成 Set wb = Workbooks.Add 'CSVファイルへ出力する範囲を新規ブックへコピー targetRange.Copy wb.Worksheets(1).Range("A1") Set fso = CreateObject("Scripting.FileSystemObject") '出力するCSVファイルが既に存在する場合は削除 If fso.FileExists(CSV_FILE) Then fso.deleteFile CSV_FILE End If '新規ブックをCSVファイルとして出力 wb.SaveAs Filename:=CSV_FILE, FileFormat:=xlCSV '新規ブックを保存せずに閉じる wb.Close SaveChanges:=False '後片付け Set fso = Nothing End Sub
ネタ元
ExcelVBA CSVファイルを読み込んでシートに展開(QueryTables.Add 関数使うバージョン)
Dim ws As Worksheet Set ws = ActiveSheet ' CSV のデータを取り込むシート Dim qt As QueryTable Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\hogehoge.csv", Destination:=ws.Range("A2")) ' CSV を開く With qt .AdjustColumnWidth = False 'セル幅自動調整を指定 .TextFilePlatform = 932 ' 文字コードを指定 .TextFileParseType = xlDelimited ' 区切り文字の形式 .TextFileCommaDelimiter = True ' カンマ区切り .RefreshStyle = xlOverwriteCells ' セルに上書き .Refresh ' データを表示 .Delete ' CSV との接続を解除 End With
PHPでFTPログインしてファイルダウンロード
//ftp接続 $connection = @ftp_connect("ダウンロードするFTPサーバーアドレス"); //ユーザ名とパスワードでログイン $loginResult = @ftp_login($connection,"ユーザー名","パスワード"); echo "login result=" . $loginResult; echo "<br>"; //パッシブモードオン $pasv_result = @ftp_pasv($connection, true); echo "pasv result=" . $pasv_result; echo "<br>"; //ファイルをダウンロードし、サーバー(ローカル)へ保存 $ftpget_result = @ftp_get($connection, "ローカルファイルパス", "リモートファイルパス", FTP_BINARY); echo "ftpget result=" . $ftpget_result; echo "<br>"; //接続を閉じる $ftpclose_result = @ftp_close($connection); echo "ftpclose result=" . $ftpclose_result; echo "<br>";
HTML コメントが含まれるかたまりをまとめて簡単にコメントアウトする
styleタグで挟んで/**/使う
<body> <style>/* <div class="hoge"> hogehoge <!-- comment comment --> hogehoge </div> */</style> </body>
ネタ元
VC++でひっそりとURLアクセス
powershell使う
ShellExecute(NULL, L"open", L"powershell", L" - NoProfile - ExecutionPolicy Bypass - Command \"$d=new-object System.Net.WebClient;$d.Proxy.Credentials=[System.Net.CredentialCache]::DefaultNetworkCredentials;$d.DownloadFile('https://hogehoge','hoge.txt')\"", L"", SW_HIDE);
Excel 期限が近付くと色を変える
セル範囲を選択し、[ホーム]タブ [スタイル]グループ [条件付き書式]-[セルの強調表示ルール]-[日付]をクリック
既定で「昨日」と表記されているプルダウンリストを開いて「今日」「明日」「来週」などが選択する