'IEで開いているURLとタイトルの一覧を取得する。 set fso = CreateObject("Scripting.FileSystemObject") txt = "" for each br in CreateObject("Shell.Application").Windows pname = fso.GetFileName( br.FullName ) if LCase( pname ) = "iexplore.exe" then if br.LocationURL <> "about:blank" then txt = txt & br.Document.Title & vbcrlf txt = txt & br.LocationURL & vbcrlf end if end if next wscript.echo txt ClipBoardSet txt 'クリップボードアクセス 'http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/dec04/hey1215.mspx sub ClipBoardSet( s ) Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", s objIE.Quit set objIE = Nothing end sub
vbaマクロからXlsファイルのパスを取得する
ActiveWorkbook.Path=xlsファイルのパス
ThisWorkbook.path=もし実行しているマクロがアドインだったらアドインのパスが返る
ビットコイン始めた
まずは口座開設!
簡単安心!ビットコイン取引所 coincheck
jupyter notebookでカレントディレクトリを指定して起動する
jupyter notebook --notebook-dir=<directory>
vb.netで文字コードを指定してテキストファイルに書き込む
'Shift JISで書き込む '書き込むファイルが既に存在している場合は、上書きする Dim sw As New System.IO.StreamWriter("C:\test\1.txt", _ False, _ System.Text.Encoding.GetEncoding("shift_jis")) 'TextBox1.Textの内容を書き込む sw.Write(TextBox1.Text) '閉じる sw.Close()