Excel VBAの実行中に実行を中断して通常のエクセル作業を入れる方法を教えてください。
１．Application.GetOpenFilenameで選択してワークブックを開く。
２．そのワークブックのシートの中から目的とするシートを選択する。
３．選択したシートを新しいワークブックにコピーする。
４．開いたワークブックを閉じる。
という一連の作業の中で、２．については通常のエクセルの作業のようにシートを一枚ずつ確認して選択する必要があります。
現在、stopを使って強引に中断させているのですが、何か良い方法はありますでしょうか？
よろしくお願いします。
ちなみに、今、私が作っているのプロシージャーは下記のようなものです。
Private QUOTfile As String
Private filename As String
Sub QUOTfileOpen()
QUOTfile = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If QUOTfile <> "False" Then
Workbooks.Open QUOTfile
End If
filename = ActiveWorkbook.Name
Stop
ActiveSheet.Copy
With Application
.Dialogs(xlDialogSaveWorkbook).Show
End With
Workbooks(filename).Close saveChanges:=False
End Sub
エクセルマクロで日付から曜日を取得する方法ですが、
例えば、2008/8/19 の様な書式ですと、
Dim a As Date
a = Date
Range("$A$1") = a
Range("$A$2") = Weekday(a)
Range("$A$3") = WeekdayName(Weekday(a))
このように記述すると簡単に取得できたのですが、
08.19.2008の様な書式ですと、
エラーが出て変換ができません。
何か良い方法はありませんでしょうか？
当方、完全に初心者です。
よろしければ、素人でもわかりやすいように
御教示いただけましたら幸いです。
何度もお世話になります、よろしくお願いいたします。
本日、EXCEL VBAでWEBページを完全保存する方法を質問して
下記を紹介していただきました。
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
--------------------------------------------------------------------------------
Sub DownloadFileFromWeb()
Const strUrl As String = "http://www.puremis.net/excel/index.shtml"
Dim strSavePath As String
Dim returnValue As Long
strSavePath = ThisWorkbook.Path & "\" & "Test.htm"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
If returnValue = 0 Then
MsgBox "Sccess!"
Else
MsgBox "Did not success."
End If
End Sub
-------------------------------------------------
この状態だと動作は完璧なんですが
たくさんのWEBページを保存するようにVBAを組みたいので
HPアドレスの部分に変数を使いたいのです。
この部分です：Const strUrl As String = "http://www.puremis.net/excel/index.shtml"
でも変数を使うとエラーになってしまうので困り果てております。何か良い方法はございませんでしょうか。
よろしくお願いいたします。
Windows2000 Excel2000でマクロ作成中の超初心者です。
コマンドボタンでExcelとWord文書を開いて、その文書を利用しています。次の3点について、ご教示をお願いします。
1）この文書を開いたとき、両方ともマイドキュメントのフォルダに固定したい
2）ワード文書を開くと、タスクトレーにあらわれるため、いちいち最大化ボタンをおさなければならない。これを最初から最大化表示したい
3）他のＰＣでも使えるコードにしたい
ちなみに使っているコードは次の2個です。
Sub ワードをひらく()
Dim FileName As String
Dim s As String
On Error GoTo JumpError
FileName = Application.GetOpenFilename("Word文書,*.doc", 1, "Word文書を開く", , False)
Shell """C:\Program Files\Microsoft Office\Office\WINWORD.EXE""" & " """ & FileName & """"
JumpError:
End Sub
-----------------------------------
Sub エクセルをひらく()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
Windows2000 Excel2000でマクロ作成中の超初心者です。
コマンドボタンでExcelとWord文書を開いて、その文書を利用しています。次の3点について、ご教示をお願いします。
1）この文書を開いたとき、両方ともマイドキュメントのフォルダに固定したい
2）ワード文書を開くと、タスクトレーにあらわれるため、いちいち最大化ボタンをおさなければならない。これを最初から最大化表示したい
3）他のＰＣでも使えるコードにしたい
ちなみに使っているコードは次の2個です。
Sub ワードをひらく()
Dim FileName As String
Dim s As String
On Error GoTo JumpError
FileName = Application.GetOpenFilename("Word文書,*.doc", 1, "Word文書を開く", , False)
Shell """C:\Program Files\Microsoft Office\Office\WINWORD.EXE""" & " """ & FileName & """"
JumpError:
End Sub
-----------------------------------
Sub エクセルをひらく()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
