Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7232 / 76732 ←次へ | 前へ→

【75089】エクセルファイルのデスクトップへの移動
質問  ggg  - 13/12/10(火) 15:28 -

引用なし
パスワード
   C:にあるフォルダ[testFD]のファイル[a.xls] をデスクトップに移動し[a.xls]を閉じるタイミングで元のフォルダ[testFD]に戻すプログラムを次の通り作成しました。どこが不具合なのか分からないのですがこのプログラムでは[a.xls]が閉じずに意図した作動になりません。ご教示のほどよろしくお願いします。


test.xls
Module1:デスクトップの移動と戻し

Option Explicit

Const myHolderName = "C:\testFD\"
Public dsktopPath As String

Public Sub Pathdsktop()
'DeskTop Pathを取得する
Dim WSH As Variant
Set WSH = CreateObject("Wscript.shell")
dsktopPath = WSH.specialfolders("DeskTop") & "\"
End Sub

Public Sub MoveMyfile(myname)

 'フォルダtestFD"C:\testFD\")のExcelファイルを
 'DeskToに移動する

Dim moveFile As String, motoFile As String, msg1 As String

 Pathdsktop
 moveFile = dsktopPath & myname
 motoFile = myHolderName & myname
 
If Dir(moveFile) = "" Then '"byotoname"がデスクトップない時
  Name motoFile As moveFile
  Workbooks.Open moveFile
  MsgBox myname & " は開かれましたよ! "
Else
 '"byotonameがデスクトップに移動済
  msg1 = myname & "は開かれていますよ!"
  MsgBox msg1 
End If
End Sub


Public Sub CloseMyfile(myname)

'DeskToに移動に移動したのExcelファイを操作した後
'元のフォルダtestFDに移動する

Dim moveFile As String, motoFile As String, msg3 As String

Pathdsktop
moveFile = dsktopPath & myname '
motoFile = myHolderName & myname '

On Error GoTo dbg:

Name moveFile As motoFile
 
msg3 = "お疲れさまでした〜" 
MsgBox msg3
Unload UserForm2

Exit Sub

dbg:

  msg3 = myname & "は閉じられていませんよ!"
  MsgBox msg3
  Unload UserForm2 
End Sub

test.xls
userform2
a.xlsの開閉


Option Explicit

Private Sub CommandButton2_Click() 'Open
Dim myname As String
myname = "a.xls"
MoveMyfile myname
Unload Me

ThisWorkbook.Close
End Sub

Private Sub CommandButton12_Click() 'Close
 Dim myname As String
 myname = "a.xls" '
 CloseMyfile myname

 ThisWorkbook.Close
End Sub

a.xls
ThisWorkbook

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Dim moveFD As String, byotoname As String
 
 moveFD = "C:\testMove\"
 Workbooks.Open moveFD & "test.xls"
 
 MsgBox "[a-Close]ボタンをクリックして下さい"
 
 ThisWorkbook.Save

End Sub

285 hits

【75089】エクセルファイルのデスクトップへの移動 ggg 13/12/10(火) 15:28 質問
【75095】Re:エクセルファイルのデスクトップへの移動 γ 13/12/10(火) 19:48 発言
【75098】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/11(水) 7:01 質問
【75104】Re:エクセルファイルのデスクトップへの移動 γ 13/12/11(水) 20:28 発言
【75105】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/11(水) 22:55 質問
【75106】Re:エクセルファイルのデスクトップへの移動 γ 13/12/11(水) 23:10 発言
【75108】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 7:33 質問
【75109】Re:エクセルファイルのデスクトップへの移動 γ 13/12/12(木) 7:51 発言
【75110】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 9:03 質問
【75113】Re:エクセルファイルのデスクトップへの移動 γ 13/12/12(木) 20:02 発言
【75114】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 20:09 質問
【75115】Re:エクセルファイルのデスクトップへの移動 γ 13/12/12(木) 20:17 発言
【75118】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 21:09 質問
【75119】Re:エクセルファイルのデスクトップへの移動 γ 13/12/12(木) 21:53 発言
【75120】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 22:06 質問
【75121】Re:エクセルファイルのデスクトップへの移動 γ 13/12/12(木) 22:23 発言
【75122】Re:エクセルファイルのデスクトップへの移動 ggg 13/12/12(木) 22:48 お礼

7232 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free