Excel VBA質問箱 IV

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

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


29053 / 76738 ←次へ | 前へ→

【52974】ファイルの出力(その2)
質問  初心者C  - 07/12/10(月) 18:43 -

引用なし
パスワード
   色々処理しているのですがうまく行かないので
教えて下さい。
あと少しなのですが・・・・

シートのセルに指定した情報で新規に
excelファイルを作成して、そこに
別シートで事前に編集した内容をコピーしたいのですが・・・


Range(Cells(i, 1), Cells(i, 17)).Copy Destination:=Sheets("s2").Cells(j, 1)

上記の

s1=c:¥
s2=保存ファイル名=そのシート名

↓の箇所の記述の方法が判らないので教えて下さい。

Destination:=Sheets("s2").Cells(j, 1)

あとは、loop関数で処理できそうなのでこの箇所
をお願いします。


'★編集指定---------------------------
  Dim s1 As String
  Dim s2 As String
'-------------------------------------
   
  s1 = ActiveSheet.Range("D6").Value 'シート名情報1
  s2 = ActiveSheet.Range("D7").Value 'シート名情報2

   
  Workbooks.Add
  Sheets("Sheet1").Select
  Sheets("Sheet1").Name = s2
  
  On Error Resume Next
  Kill Pathname:=s1 & s2
  On Error GoTo 0
  
  Application.DisplayAlerts = False
 
  '●ファイル保存
   ActiveWorkbook.SaveAs Filename:=s1 & s2, _
   FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
   ReadOnlyRecommended:=False, CreateBackup:=False

 '○データコピー
 

  i = 1
  j = 1
  
  
  Do While Cells(i, 2) <> ""
  
   Range(Cells(i, 1), Cells(i, 17)).Copy Destination:=Sheets("s2").Cells(j, 1)

0 hits

【52974】ファイルの出力(その2) 初心者C 07/12/10(月) 18:43 質問
【52976】Re:ファイルの出力(その2) じゅんじゅん 07/12/10(月) 18:59 発言
【52998】Re:ファイルの出力(その2) 初心者C 07/12/11(火) 9:32 質問
【53000】Re:ファイルの出力(その2) じゅんじゅん 07/12/11(火) 10:01 発言
【53001】Re:ファイルの出力(その2) 初心者C 07/12/11(火) 10:53 お礼
【52996】Re:ファイルの出力(その2) かみちゃん 07/12/10(月) 22:23 発言

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