ドイツ語は、ワークブック全体を送信せずに、ワークブック内の1つのワークシートを電子メールの添付ファイルとして送信する方法があるかどうかを尋ねました。簡単に言うと、ワークシート自体は「エンティティ」として存在することはできません。

あなたが電子メールに添付できること。ファイルは電子メールの添付ファイルとしてのみ送信できます。つまり、送信するにはワークブックファイルが必要です。

もちろん、1つのワークシートからワークブックを作成するのは簡単です。これをたまに行う必要がある場合、最も簡単な方法は次の手順に従うことです。

。電子メールで送信するワークシートのタブを右クリックします。

。表示されるコンテキストメニューから、[移動]または[コピー]を選択します。 Excelは、[移動またはコピー]ダイアログボックスを表示します。 （図1を参照）

。 [To Book]ドロップダウンリストを使用して、[NewBook]を選択します。

。 [コピーを作成する]チェックボックスがオンになっていることを確認します。

。 [OK]をクリックします。

この時点で、1つのワークシート（送信するワークシートのコピー）を含む新しいワークブックが表示されます。このワークブックを電子メールで送信すると、やりたいことが達成されます。ワークシートは元のワークブックにも残っているため、電子メールで送信されたら、ワークブックを削除できます。

現在のワークシートを定期的に他の人に電子メールで送信する必要がある場合は、そのタスクを実行するマクロを作成することをお勧めします。作成するマクロは、使用している電子メールプログラムによって異なります。このため、このヒントで包括的なマクロベースの回答を提供することはできません。ただし、メールプログラムとしてOutlookを使用してワークシートを電子メールで送信できるマクロの例を提供すると役立つ場合があります。

Sub EmailWithOutlook()

Dim oApp As Object     Dim oMail As Object     Dim WB As Workbook     Dim FileName As String     Dim wSht As Worksheet     Dim shtName As String

Application.ScreenUpdating = False

' Make a copy of the active worksheet     ' and save it to a temporary file     ActiveSheet.Copy     Set WB = ActiveWorkbook

FileName = WB.Worksheets(1).Name     On Error Resume Next     Kill "C:\" & FileName     On Error GoTo 0     WB.SaveAs FileName:="C:\" & FileName

'Create and show the Outlook mail item     Set oApp = CreateObject("Outlook.Application")

Set oMail = oApp.CreateItem(0)

With oMail         'Uncomment the line below to hard code a recipient         '.To = "[email protected]"

'Uncomment the line below to hard code a subject         '.Subject = "Subject Line"

'Uncomment the lines below to hard code a body         '.body = "Dear John" & vbCrLf & vbCrLf & _           '"Here is the file you asked for"

.Attachments.Add WB.FullName         .Display     End With

'Delete the temporary file     WB.ChangeFileAccess Mode:=xlReadOnly     Kill WB.FullName     WB.Close SaveChanges:=False

'Restore screen updating and release Outlook     Application.ScreenUpdating = True     Set oMail = Nothing     Set oApp = Nothing End Sub

マクロは、前の手順で実行されたことを効果的に実行することに注意してください。

ワークシートを新しいワークブックにコピーしてから、そのワークブックに電子メールを送信します。次に、ブックを削除して、通常のExcelの使用に戻します。

さまざまなプログラムを使用してワークシートを電子メールで送信する方法について、より詳細な説明を探している場合は、次のWebページにアクセスすることをお勧めします。

http://www.rondebruin.nl/win/section1.htm

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3273）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link電子メールによる単一のワークシートの送信。