シートが複数あり、月別にあります。
当月の分だけを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

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

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

　　exl.application.sheets(シート名).Select
　　でシートの指定はできると思います。

　　民明書房刊「EXCLEとVBの不思議な関係より」抜粋

> > シートが複数あり、月別にあります。
> > 当月の分だけをCSVに変換していたのですが、別シートのデータが入ってきてしまいました。
> > 指定シートを取りたいのですが？
> > 記述したのですが、エラーが発生するため見苦しいのでとりました。
> > どのようにすればシート名を知ることができるでしょうか。
> > 下記はXLSからCSVに指定セル部分を書き出してます。
>
> 　　exl.application.sheets(シート名).Select
> 　　でシートの指定はできると思います。
>
> 　　民明書房刊「EXCLEとVBの不思議な関係より」抜粋

Killerさんありがとうございます。
出来ました。助かりました。
いろいろな記述方法を見ていたので、頭の中が整理つかなかったようです。
勉強がんばります。