投稿日	： 2003/03/03(Mon) 00:04
投稿者	： あやの
Ｅメール	：
ＵＲＬ	：
タイトル	： シート名の確保

シートが複数あり、月別にあります。
当月の分だけをCSVに変換していたのですが、別シートのデータが入ってきてしまいました。
指定シートを取りたいのですが？
記述したのですが、エラーが発生するため見苦しいのでとりました。
どのようにすればシート名を知ることができるでしょうか。
下記はXLSからCSVに指定セル部分を書き出してます。

    Dim fnm1    As String
    Dim fnm2    As String
    Dim rec     As String
    Dim cnt0    As Long
    Dim cnt1    As Long
    Dim exl     As Object

    fnm1 = "c:\temp\total.xls"
    fnm2 = "c:\temp\WORKF.csv"

    Set exl = CreateObject("Excel.Application")
    exl.Application.Visible = False
    exl.Application.Workbooks.Open FileName:=fnm1
    Open fnm2 For Output As #2 Len = 32000
    
    cnt0 = 0
    For cnt0 = 1 To 1000
    '------------------------------------------------
    If cnt0 > 1000 Then Exit For
        rec = ""
        rec = rec & exl.Cells((cnt0 * 2 + 7), 2) & ","  'NO
        rec = rec & exl.Cells((cnt0 * 2 + 7), 3) & ","  'name
        rec = rec & exl.Cells((cnt0 * 2 + 7), 27) & "," '目標
        rec = rec & exl.Cells((cnt0 * 2 + 7), 28) & "," '売上
        rec = rec & exl.Cells((cnt0 * 2 + 7), 29) & "," '粗利
        Print #2, rec
    Next
    
    Close #2
    exl.Application.DisplayAlerts = False
    exl.Application.Quit

ご存知の方いらしたらお教え願えないでしょうか。

★ - シート名の確保 - あやの 03/03-00:04No.2946
• Re: シート名の確保 - Killer 03/03-09:26 No.2949
  • Re^2: シート名の確保 - あやの 03/03-10:46 No.2950