Excel VBA質問箱 IV

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

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


5637 / 76732 ←次へ | 前へ→

【76703】Re:Excel2010 データインポートの際データがない時にファイルを閉じたい
発言  β  - 15/3/1(日) 7:11 -

引用なし
パスワード
   ▼りえ さん:

Main処理のみコード差し換えてください。

Sub ボタン1_Click()
  Dim done1 As Boolean
  Dim done2 As Boolean
  Dim bkB As Workbook
  Dim bkC As Workbook
  
  Application.ScreenUpdating = False
  
  Set bkB = Workbooks.Open("C:\東京\B.xls")
  Set bkC = Workbooks.Open("C:\東京\C.xls")
  
  'sheet1
  done1 = Proc(bkC.Worksheets("Sheet1"), bkB.Worksheets("Sheet1"))
  'sheet2
  done2 = Proc(bkC.Worksheets("Sheet2"), bkB.Worksheets("Sheet2"))
  
  bkB.Close SaveChanges:=False

  If done1 Or done2 Then
    Application.DisplayAlerts = False
    bkC.SaveAs Filename:="\\サーバ名\フォルダ名1\共有フォルダ名2\" & bkC.Name
    Application.DisplayAlerts = True
  End If
  
  bkC.Close SaveChanges:=False
  
  Application.ScreenUpdating = True
  
  If done1 Or done2 Then
    MsgBox "終わりました"
  Else
    MsgBox "処理すべきデータがありませんでした"
  End If
  
End Sub

256 hits

【76699】Excel2010 データインポートの際データがない時にファイルを閉じたい りえ 15/3/1(日) 4:58 質問[未読]
【76700】Re:Excel2010 データインポートの際データ... β 15/3/1(日) 6:16 発言[未読]
【76701】Re:Excel2010 データインポートの際データ... りえ 15/3/1(日) 6:45 発言[未読]
【76702】Re:Excel2010 データインポートの際データ... β 15/3/1(日) 6:49 発言[未読]
【76704】Re:Excel2010 データインポートの際データ... りえ 15/3/1(日) 7:36 発言[未読]
【76705】Re:Excel2010 データインポートの際データ... β 15/3/1(日) 7:40 発言[未読]
【76706】Re:Excel2010 データインポートの際データ... β 15/3/1(日) 7:56 発言[未読]
【76707】Re:Excel2010 データインポートの際データ... [名前なし]りえ 15/3/2(月) 12:34 お礼[未読]
【76703】Re:Excel2010 データインポートの際データ... β 15/3/1(日) 7:11 発言[未読]

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