Excel VBA質問箱 IV

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

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


46856 / 76732 ←次へ | 前へ→

【34843】Re:スクロールバーについて
発言  RL  - 06/2/14(火) 16:36 -

引用なし
パスワード
   Nedさん、ありがとうございました。
元々、このコードはStatisさんにご教授頂き作成したコードで、
それを基に、下記のようにしました。

 Sub CommandButton1_Click()
 Dim FileName As String
 Dim WB As Workbook
 Dim MYPATH As String
 Worksheets("ユーザー管理表").Range("A4:AB65536").Clear
 MYPATH = "\\gggg\ggg\出荷一覧\一覧表\"

   strFileName = MYPATH & strFileName & "注文一覧表" & ".xls"

  If Dir(strFileName) <> "" Then
   Set WB = Workbooks.Open(strFileName)
   WB.ActiveSheet.Range("A4:G35565,K4:AE35565").Copy _
     ThisWorkbook.Worksheets("ユーザー一覧表").Range("A4")
   Windows("注文一覧表.xls").Activate
  ActiveWindow.Close
  Unload UserForm1
   Else
   MsgBox strFileName & "がありません"
  End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
MsgBox "データは更新されません"
End Sub

早速、頂いたコードをWB.ActiveSheet.Range("A4:G35565,K4:AE35565").Copy _
の部分に上書きしてみましたが、
.Range("A4:G" & r & ",K4:AE" & r).Copy_でエラーになってしまいました。
その他、Dim MYPATH As Stringのあとに
Dim r As Longを入れてみたりとか、自分で思いつく範囲で色々いじってみたのですが、
一考に解りません。
何かヒントでよいのでよろしくご教授下さい。
0 hits

【34800】スクロールバーについて RL 06/2/13(月) 13:07 質問
【34821】Re:スクロールバーについて Ned 06/2/13(月) 19:30 発言
【34833】Re:スクロールバーについて RL 06/2/14(火) 13:19 質問
【34837】Re:スクロールバーについて Ned 06/2/14(火) 14:14 発言
【34843】Re:スクロールバーについて RL 06/2/14(火) 16:36 発言
【34844】Re:スクロールバーについて Ned 06/2/14(火) 17:14 発言
【34942】Re:スクロールバーについて RL 06/2/16(木) 15:29 お礼

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