Excel VBA質問箱 IV

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

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


43211 / 76735 ←次へ | 前へ→

【38576】Re:データの一部をbook名にするには
質問  にしもり  - 06/6/6(火) 15:56 -

引用なし
パスワード
   ▼Jaka さん、Keinさん:
ありがとうございます。どうにか希望どおりにできました。下記最終結果をご参照ください。

>要するに保存したい場所、ファイル名は自分で文字を組み合わせて、
保存時のパスは自分で組み合わせるのですね。
でもひとつ教えてください。
Keinさんの ActiveWorkbook.Close True, "C:新しいフォルダ\" & Dv & ".xls"と
Jakaさんの ActiveWorkbook.SaveAs FileName:= "C:\・・・・は同じことなんでしょうか?

<最終結果>
Option Base 1

Sub ReadtTxt()

  Dim myTxtFile As String
  Dim myBuf(21) As String
  Dim i As Integer
  Dim j As Integer
  Dim k As String
  Dim Dv As String
  
  Application.ScreenUpdating = False
  myTxtFile = ActiveWorkbook.Path & "\mail.csv"
  Worksheets("test").Activate
  Open myTxtFile For Input As #1
  
  Do Until EOF(1)
    Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), myBuf(21)
    i = i + 1
    For j = 1 To 21
    Cells(i, j) = myBuf(j)
    Next j
  Loop
  
  Close #1
  
  Columns("B:R").Select
  Selection.Delete Shift:=xlToLeft
  
  Columns("B:B").Select
  With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = True
    .ReadingOrder = xlContext
    .MergeCells = False
  End With
  
  Columns("A:A").Select
  Selection.NumberFormatLocal = "0_);[赤](0)"
  Selection.ColumnWidth = 15
  
  Columns("B:B").Select
  Selection.ColumnWidth = 105
  Range("B1").Select
  ActiveCell.FormulaR1C1 = "書名"
  
  Columns("D:D").Select
  Selection.ColumnWidth = 15
  

  With Sheets("test")
    Dv = Format(DateValue(.Range("C2").Value), "mmdd")
    .Copy
  End With

  
  Columns("C:C").Select
  Selection.Delete Shift:=xlToLeft
  Range("A1").Select

  ActiveSheet.Name = Dv
  ActiveWorkbook.Close True, "C:新しいフォルダ\" & Dv & ".xls"
  
  Range("A1").Select
  Range(Selection, Selection.End(xlDown)).Select
  Range(Selection, Selection.End(xlToRight)).Select
  Selection.ClearContents
  Range("A1").Select
  ActiveWorkbook.Close True
  
End Sub
0 hits

【38546】データの一部をbook名にするには にしもり 06/6/6(火) 12:06 質問
【38558】Re:データの一部をbook名にするには にしもり 06/6/6(火) 13:38 質問
【38561】Re:データの一部をbook名にするには Jaka 06/6/6(火) 13:57 発言
【38562】Re:データの一部をbook名にするには Jaka 06/6/6(火) 14:00 発言
【38567】Re:データの一部をbook名にするには にしもり 06/6/6(火) 14:23 質問
【38568】Re:データの一部をbook名にするには Jaka 06/6/6(火) 14:31 発言
【38569】Re:データの一部をbook名にするには にしもり 06/6/6(火) 14:42 質問
【38571】Re:データの一部をbook名にするには Kein 06/6/6(火) 14:52 回答
【38572】Re:データの一部をbook名にするには Jaka 06/6/6(火) 15:20 発言
【38576】Re:データの一部をbook名にするには にしもり 06/6/6(火) 15:56 質問
【38577】Re:データの一部をbook名にするには Kein 06/6/6(火) 16:04 発言
【38578】Re:データの一部をbook名にするには にしもり 06/6/6(火) 16:10 お礼

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