Excel VBA質問箱 IV

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

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


43240 / 76735 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。
csvファイルを、開いているEXCELシートに読み込んでいます。そして1、19、20、21列をのこしています。いま、CSVの1行目にはタイトルにあたるものが入っています。のこした19列1行目のタイトルのみ、「書名」という文字に変更したいのですがどう書けばよいでしょうか?

また、1列にたとえば100028000000と入っているのですが1.00E+11となってしまいます。これを100028000000と表示さすにはどうすればいいでしょうか?

また、読み込み先のシートtestを新たなEXCEL bookにコピーし、20列にたとえば06/05/2006 10:12:12とあったら0605というシート名でかつ0605.xlsという名で元のCSVがあった場所に保存し、その際に20列を削除したいのです。
そのような場合どういうロジックを追加すればよろしいでしょうか?
どなたかご教示ください。

Option Base 1

Sub ReadtTxt()

  Dim myTxtFile As String
  Dim myBuf(21) As String
  Dim i As Integer
  Dim j As Integer
  
  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


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 お礼

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