hananeko_0回答ポイント 60ptウォッチ 1

ExcelVBAです。

添付ファイルのようなことをしたいのですが

1)分割する行を選択する
2)VBAを実行
3)12行目から下を全て削除し、別名で指定フォルダへ保存
⇒別名で保存：商品別一覧yyyymmdd.xls (yyyymmddは当日)

4)5行目から11行目までを削除し、12行目以降を上方向へシフト（タイトル行の一行下）
⇒上書き保存

教えていただくと作業的に大変助かります。
宜しくお願い致します。

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• SALINGER2008/08/10 00:32:54

  満足60pt

  こんな感じでどうでしょう。

  Sub Macro()
      Dim wb As Workbook
      Dim r As Long
      Dim bookName As String
      
      '保存するフォルダのパスを指定
      Const BookPath As String = "C:\Documents and Settings\hogehoge\デスクトップ\test"
      
      r = Selection.Row
      bookName = ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd") & ".xls"
      ThisWorkbook.SaveCopyAs (bookName)
      Set wb = Workbooks.Open(bookName)
      ActiveSheet.Rows(r + 1 & ":65536").Delete shift:=xlUp
      wb.Save
      wb.Close
      
      ActiveSheet.Rows("5:" & r).Delete shift:=xlUp
      ThisWorkbook.Save
  End Sub
  

  スター

  • hananeko_0 2008/08/10 00:50:43

    ありがとうございますっ　（*^_^*）

    私のスキルが低く申し訳ないのですが、別名で保存したファイルの名前が

    日付だけになってしまうので、日付の前に元ファイルの名前を追加

    したいのですが（商品別一覧yyyymmdd.xls ）どうすれば良いでしょうか？

    それから先ほど別件でSALINGERさんからいただいた回答ですが、

    私の質問不足で、毎回指定する枚数が違うので、合計する枚数を指定する部分

    （4000のところ）をInputboxで入力指定したいのですが、こちらは又質問にあげさせていただきます。

    自力でトライしましたが出来ませんでした・・・(/_;)

    もしお時間ありましたら、そちらもご回答いただくと大変助かります。

その他の回答

この質問へのコメント

• SALINGER2008/08/10 00:36:45
  7行目
  ThisWorkbook.Path→BookPathでした。
• SALINGER2008/08/10 01:02:10
  すいません。商品別一覧が抜けていましたね。
  
  bookName = BookPath & "\商品別一覧" & Format(Now, "yyyymmdd") & ".xls"
  
  にしてください。
• hananeko_02008/08/10 01:13:41
  SALINGERさん、ありがとうございます！　（*^_^*）
  
  商品別一覧を頭につけたファイル名でデスクトップに保存されましたっ
  感謝ですっ
  

質問の情報

登録日時

2008-08-09 23:45:11

終了日時

2008-08-10 01:14:02

回答条件

1人3回まで

この質問のカテゴリ

• ビジネス・経営
• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者22時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者222時間前
• 内定してほしいポケモンはいますか？匿名質問者22時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ