Excel VBA質問箱 IV

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

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


15739 / 76734 ←次へ | 前へ→

【66470】フォルダ内指定シートの指定セル値のコピー
質問  ビータン E-MAIL  - 10/9/5(日) 12:37 -

引用なし
パスワード
   こんちわ、VBA初心者です、宜しくお願いします。

フォルダ内に置いた”指定セル値参照xls”を使って、他の複数ファイルの 特定する" 表紙 "シート にあるA1セルの値を(但し" 表紙 "シートがないファイルもありその時は空白セルのままで進めたいのです,
この”指定セル値参照xls”にある入力シートのA1セルから順にA2、3・・・と入力したいのですが上手くいきません)。
他のファイルを開いたときにアクティブに出来ないみたいで、エラーになります。

昨日からず〜〜と やってますが どうしても上手くいきません、どなたか ご指導願います、宜しくお願いします。


Sub test()
'
'フォルダ内指定シートの指定セル値のコピー、入力シートに貼付


 myAD = ThisWorkbook.Path & "\"
  Filename = Dir(myAD & "*.xls")

  Do Until Filename = ""
      If Filename <> "指定セル値参照.xls" Then
        Set aBN = Workbooks.Open(myAD & Filename)
        Application.ScreenUpdating = False
   
  For Each ws In Worksheets
    If ws.Name = " 表紙 " Then
      If Worksheets.Count > 1 Then
  Sheets(" 表紙 ").Select
  Sheets(" 表紙 ").Activate
  SelectedSheets.Range("A1").Copy


       End If
    End If
  Next

  Windows("指定セル値参照.xls").Activate
  ActiveWorkbook.Worksheets("入力シート").Select

 
  Dim i As Long
  With ActiveCell
    For i = .Row + 1 To Rows.Count
      If Not Rows(i).Hidden Then
        Cells(i, .Column).Select
        Exit For
      End If
    Next
  End With
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
   
        aBN.Save
        aBN.Close
      End If
      Filename = Dir()
  Loop

Application.ScreenUpdating = False


End Sub

1 hits

【66470】フォルダ内指定シートの指定セル値のコピー ビータン 10/9/5(日) 12:37 質問
【66471】Re:フォルダ内指定シートの指定セル値のコ... 247b 10/9/5(日) 17:14 回答
【66476】出来ました! ビータン 10/9/5(日) 21:48 お礼
【66478】Re:出来ました! 247b 10/9/5(日) 22:23 回答
【66483】Re:出来ました! ビータン 10/9/5(日) 23:04 お礼
【66486】Re:出来ました! 247b 10/9/5(日) 23:44 発言
【66501】Re:出来ました! ビータン 10/9/6(月) 22:31 お礼

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