[B! Excel] niemandsのブックマーク

Program

なんてことだ、こんな簡単にフォルダエクスプローラーが呼び出せたなんて･･。目から鱗とはまさにこのこと。アプリケーションのメイン部分自体は、前に作成したFolder List Toolを利用しています。 '-------------------------------------------------- 'BrowseForFolderを呼び出し、フォルダのパスを返す '-------------------------------------------------- Public Function BrowseFolder(Optional myRoot As Variant) As String Dim objFolder As Object ' フォルダ選択ダイアログを表示 Set objFolder = CreateObject("Shell.Application") _ .

niemands 2010/07/20

Excel

リンク

三流君VBA:IE 認証ページへのアクセス、basci認証ページって？

＜IE 認証ページへのアクセス、basci認証ページって？＞どうも、三流プログラマーのＫｅｎ３です。今回は、 IEでbasci認証ページへアクセスしてみたいと思います。 http://www.ken3.org/vba/lzh/vba159.lzh にサンプルweb159.xlsを圧縮しておきます、 Excel2000版ですが使ってみてください。関連項目、三流君VBAでInternetExplorer.Applicationを操作する(IE操作) http://www.ken3.org/cgi-bin/group/vba_ie.asp もヨロシクね。 /* * １．今回のキッカケ */ 昔、掲示板に下記の質問をもらいました。 ---------- 投稿時間：2004/03/28(Sun) 20:59 投稿者名：kuma san タイトル：Basic認証のページはじめまして今Vbs

niemands 2010/03/03

Excel

リンク

Office TANAKA - Excel VBA Tips[フォルダを選択するダイアログ]

フォルダを選択するダイアログボックスを表示するにはいくつかの方法があります。 1.FileDialogオブジェクトを使う方法 Sub Sample1() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then MsgBox .SelectedIt ems(1) End If End With End Sub 2.Shellを使う方法 Sub Sample2() Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\") If Not myPath Is Nothing Then Ms

niemands 2009/03/23

Excel

リンク

If OpenFileName <> "False"とIf OpenFileName <> Falseの違い

開くブックをユーザーに選択してもらう場合は、[ファイルを開く]ダイアログボックスを表示するといいでしょう。 Sub Sample1() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub [ファイルを開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFilenameメソッドを使います。GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは、ユーザーが選択したファイルのフルパスを返すだけで、自動的には開きません。GetOpenFilenameメソッドの書式は次の通りです。 GetOpenFilename Fil