Как переименовать книгу excel на vba

Хитрости »

15 Август 2012              129961 просмотров

В этой статье я хотел бы рассказать как средствами VBA переименовать, переместить или скопировать файл. В принципе методы переименования, перемещения и копирования, так сказать, встроены в VBA. Это значит что можно без вызова сторонних объектов переименовать, переместить или копировать любой файл. Все это делается при помощи всего двух команд: FileCopy и Name [Исходный файл] As [Новый файл]. Притом команда FileCopy выполняет только копирование, а Name [Исходный файл] As [Новый файл] — как переименование, так и перемещение. Разница лишь в том, что при переименовании мы указываем только новое имя файла, а при перемещении — другую директорию(папку), в которую следует переместить файл. Плюс рассмотрим пример удаления файла.
Так же разберем методы копирования, перемещения, переименования и удаления файлов и папок через библиотеку FileSystemObject (FSO).

Работа с файлами встроенными командами VBA

• Копирование файла
• Перемещение файла
• Переименование файла
• Удаление файла

Работа с файлами через объект FileSystemObject (FSO)

• Копирование файла
• Перемещение файла
• Переименование файла
• Удаление файла

Работа с папками через объект FileSystemObject (FSO)

• Копирование папки
• Перемещение папки
• Переименование папки
• Удаление папки

Во всех примерах работы с файлами встроенными функциями будет присутствовать проверка на наличие файла по указанному пути. Делать это будем при помощи встроенной функции Dir([PathName],[Attributes]).
PathName — указывается полный путь к файлу
Attributes — указывается признак свойств файла. Вообще их несколько(скрытый, архивный и т.п.), но нас для наших задач будет интересовать пока только один: 16(vbDirectory). Он отвечает за проверку папок и файлов без специальных свойств(т.е. не архивные, не скрытые и т.д.). Хотя по сути его можно вообще не указывать, и тогда будет по умолчанию применен атрибут 0(vbNormal) — проверка файлов без определенных свойств. Ни в том ни в другом случае ошибкой это не будет.

Sub Copy_File()
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя файла для копирования
    sNewFileName = "D:WWW.xls"    'имя копируемого файла. Директория(в данном случае диск D) должна существовать
    If Dir(sFileName, 16) = "" Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
 
    FileCopy sFileName, sNewFileName 'копируем файл
    MsgBox "Файл скопирован", vbInformation, "www.excel-vba.ru"
End Sub

Sub Move_File()
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя исходного файла
    sNewFileName = "D:WWW.xls"    'имя файла для перемещения. Директория(в данном случае диск D) должна существовать
    If Dir(sFileName, 16) = "" Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
 
    Name sFileName As sNewFileName 'перемещаем файл
    MsgBox "Файл перемещен", vbInformation, "www.excel-vba.ru"
End Sub

Sub Rename_File()
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя исходного файла
    sNewFileName = "C:WWW1.xls"    'имя файла для переименования
    If Dir(sFileName, 16) = "" Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
 
    Name sFileName As sNewFileName 'переименовываем файл
 
    MsgBox "Файл переименован", vbInformation, "www.excel-vba.ru"
End Sub

Sub Delete_File()
    Dim sFileName As String
 
    sFileName = "C:WWW.xls"    'имя файла для удаления
 
    If Dir(sFileName, 16) = "" Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    Kill sFileName 'удаляем файл
    MsgBox "Файл удален", vbInformation, "www.excel-vba.ru"
End Sub

Как видно ничего сложного.

Так же можно проделать те же операции с файлами при помощи объекта FileSystemObject. Строк кода несколько больше и выполняться операции будут медленнее(хотя вряд ли это будет заметно на примере одного файла). Однако есть существенный плюс — при помощи FileSystemObject можно корректно производить операции с файлами и папками на сетевом диске. Хотя та же

Dir(sFileName, 16)

часто выдает ошибку при работе с сетевыми дисками.
Прежде всего следует, я думаю, пояснить что за зверь такой — FileSystemObject.

FileSystemObject (FSO)

— содержится в библиотеке типов Scripting, расположенной в файле библиотеки scrrun.dll. Объектная модель FSO дает возможность создавать, изменять, перемещать и удалять папки и файлы, собирать о них различную информацию: имена, атрибуты, даты создания или изменения и т.д. Чтобы работать с FSO необходимо создать переменную со ссылкой на объект библиотеки. Сделать это можно двумя способами: через ранее связывание и позднее. Я не буду сейчас вдаваться в подробности этих методов — тема довольно обширная и я опишу её в другой статье.

Ранее связывание:

для начала необходимо подключить библиотеку Microsoft Scripting Runtime. Делается это в редакторе VBA: References-находите там Microsoft Scripting Runtime и подключаете. Объявлять переменную FSO при раннем связывании следует так:

Dim objFSO As New FileSystemObject

Плюсы раннего связывания: с помощью Object Browser можно просмотреть список объектов, свойств, методов, событий и констант, включенных в FSO. Но есть значительный минус: если планируется использовать программу на нескольких компьютерах, то есть большая вероятность получить ошибку(читать подробнее).
Позднее связывание: ничего нигде не надо подключать, а просто используем метод CreateObject(именно этот способ используется мной в примерах ниже). Методы таким образом просмотреть не получится, но зато работать будет без проблем на любых компьютерах без дополнительных действий.

Sub Copy_File()
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя исходного файла
    sNewFileName = "D:WWW.xls"    'имя файла для переименования
    'создаем объект FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие файла по указанному пути
    If objFSO.FileExists(sFileName) = False Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'копируем файл
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Copy sNewFileName
 
    MsgBox "Файл скопирован", vbInformation, "www.excel-vba.ru"
End Sub

Sub Move_File()
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя исходного файла
    sNewFileName = "D:WWW.xls"    'имя файла для переименования
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие файла по указанному пути
    If objFSO.FileExists(sFileName) = False Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'перемещаем файл
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Move sNewFileName
    MsgBox "Файл перемещен", vbInformation, "www.excel-vba.ru"
End Sub

Sub Rename_File()
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:WWW.xls"    'имя исходного файла
    sNewFileName = "WWW1.xls"    'имя файла для переименования
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие файла по указанному пути
    If objFSO.FileExists(sFileName) = False Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'переименовываем файл
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Name = sNewFileName
    MsgBox "Файл переименован", vbInformation, "www.excel-vba.ru"
End Sub

Sub Delete_File()
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String
 
    sFileName = "C:WWW.xls"    'имя файла для удаления
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие файла по указанному пути
    If objFSO.FileExists(sFileName) = False Then 
        MsgBox "Нет такого файла", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'удаляем файл
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Delete
    MsgBox "Файл удален", vbInformation, "www.excel-vba.ru"
End Sub

Точно так же можно перемещать, копировать и удалять целые папки:

Копирование папки

Sub Copy_Folder()
    Dim objFSO As Object
    Dim sFolderName As String, sNewFolderName As String
 
    sFolderName = "C:test"        'имя исходной папки
    sNewFolderName = "D:tmp"     'имя папки, в которую копируем(нужен слеш на конце)
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие папки по указанному пути
    If objFSO.FolderExists(sFolderName) = False Then 
        MsgBox "Нет такой папки", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'копируем папку
    objFSO.CopyFolder sFolderName, sNewFolderName
 
    MsgBox "Папка скопирована", vbInformation, "www.excel-vba.ru"
End Sub

Sub Move_Folder()
    Dim objFSO As Object
    Dim sFolderName As String, sNewFolderName As String
 
    sFolderName = "C:test"           'имя исходной папки
    sNewFolderName = "C:tmptest"   'имя папки, в которую перемещаем(нужен слеш на конце)
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие папки по указанному пути
    If objFSO.FolderExists(sFolderName) = False Then 
        MsgBox "Нет такой папки", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'перемещаем папку
    objFSO.MoveFolder sFolderName, sNewFolderName
    MsgBox "Папка перемещена", vbInformation, "www.excel-vba.ru"
End Sub

Sub Rename_Folder()
    Dim objFSO As Object, objFolder As Object
    Dim sFolderName As String, sNewFolderName As String
 
    sFolderName = "C:test"            'имя исходной папки
    'имя папки для переименования(только имя, без полного пути)
    sNewFolderName = "new folder name"
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие папки по указанному пути
    If objFSO.FolderExists(sFolderName) = False Then 
        MsgBox "Нет такой папки", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'переименовываем папку
    'получаем доступ к объекту Folder(папка)
    Set objFolder = objFSO.GetFolder(sFolderName)
    'назначаем новое имя
    objFolder.Name = sNewFolderName
    MsgBox "Папка переименована", vbInformation, "www.excel-vba.ru"
End Sub

Sub Delete_Folder()
    Dim objFSO As Object, objFolder As Object
    Dim sFolderName As String
 
    sFolderName = "C:test"    'имя папки для удаления
    'создаем объект FileSystemObject    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'проверяем наличие папки по указанному пути
    If objFSO.FolderExists(sFolderName) = False Then 
        MsgBox "Нет такой папки", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If
    'удаляем папку
    objFSO.DeleteFolder sFolderName
    MsgBox "Папка удалена", vbInformation, "www.excel-vba.ru"
End Sub

FSO, конечно, способен на большее — но цель данной статьи была показать основные операции с папками и файлами как стандартными методами, так и более продвинутыми.

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

VBA in Excel does not restrict us to just a single application. VBA gives us access to the windows environment too. With this we can perform a lot of common file-based actions. One of the most common is to rename a file. In this post, we will look at 5 examples of renaming files with VBA.

To rename a file with VBA we use the Name command. Name appears in blue because it is a reserved word within VBA.

Example 1: Renaming a file

This example renames a file from Example File.xlsx to Example File Renamed.xlsx.

Sub VBARenameFile()

Name "C:UsersmarksDocumentsExample File.xlsx" As _
    "C:UsersmarksDocumentsExample File Renamed.xlsx"

End Sub

Example 2: Rename a file based on cell values

In this example, we rename a file based on cell values. The screenshot below shows the current file name in Cell C2 and the new file name in Cell C4.

We can run the following macro to rename a file using these cell values.

Sub VBARenameFileSheetNames()

Name ActiveSheet.Range("C2") As _
    ActiveSheet.Range("C4")

End Sub

Example 3: Move a file with the Name command

Did you notice the Name command requires the file path and file name? Therefore, the Name command doesn’t just rename files but can also move files. For example, the code below moves the file from C:UsersmarksDocuments to C:Usersmarks, but the file name remains the same.

Sub VBAMoveFile()

Name "C:UsersmarksDocumentsExample File.xlsx" As _
    "C:UsersmarksExample File.xlsx"

End Sub

Example 4: Avoiding errors when renaming files

Trying to move files that don’t exist, or are locked for editing can trigger errors. The errors are detailed in the section below.

If there is an error, we really want to avoid going through the Visual Basic error debugging process. Instead, a better option is to display a message box with an OK button.

Sub VBAAdvancedRenameFile()

'Create variables to hold file names
Dim filePath As String
Dim newFilePath As String

filePath = "C:UsersmarksDocumentsExample File.xlsx"
newFilePath = "C:UsersmarksDocumentsExample File Renamed.xlsx"

'Ignore errors
On Error Resume Next

'Rename file
Name filePath As newFilePath

'Display message if error occured
If Err.Number <> 0 Then
    MsgBox Prompt:="Unable to rename file", Buttons:=vbOK, _
        Title:="Rename file error"
End If

'Turn error checking back on
On Error GoTo 0

End Sub

Example 5: Reusable function

Finally, let’s create a reusable function for moving and renaming files.

The VBA function below accepts two string arguments; the existing file path and the new file path.

Function fxRenameFile(filePath As String, newFilePath As String)

'Ignore errors
On Error Resume Next

'Rename file
Name filePath As newFilePath

'Display message if error occured
If Err.Number <> 0 Then
    fxRenameFile = False
Else
    fxRenameFile = True
End If

'Turn error checking back on
On Error GoTo 0

End Function

We can use this function in two ways.

1. Calling the function from another macro
2. Calling the function from a worksheet

Let’s look at both of these in turn.

Calling the function from a macro

The macro below calls the function and displays a message box with the following values:

• True = File renamed
• False = Error occurred.

Sub CallFunction()

'Create variables to hold file names
Dim filePath As String
Dim newFilePath As String

filePath = "C:UsersmarksDocumentsExample File.xlsx"
newFilePath = "C:UsersmarksDocumentsExample File Renamed.xlsx"

'True = File Renamed
'False = Error Occured
MsgBox fxRenameFile(filePath, newFilePath)

End Sub

Calling the function from a worksheet

Alternatively, we can call the function just like a normal worksheet function.

Look at the screenshot above, our custom function is used in Cell C6:

=fxRenameFile(C2,C4)

TRUE indicates that the file named in Cell C2 has been successfully renamed to the file named in Cell C4. If we run the function a second time, it will show FALSE, as the file has already been renamed.

Be aware the function executes each time cells C2 or C4 change, so be careful with the order in which you update the cells.

TOP TIP: If we use the fxRenameFile function inside an IF function, it will only executes when the condition is met. In the example below, the fxRenameFile function only executes if cell A6 equals Y.

=IF(A6="Y",fxRenameFile(C2,C4),"Do not rename")

Using this method, we can control when and how the function executes. We just need to change cell A6 to another value when we don’t the function to execute.

Possible errors

If we try to rename a file or folder path that does not exist, it triggers an error: Run-time error’53’: File not found.

If the new file name is the same as an existing one, it triggers the following error: Run-time error ’58’: File already exists.

If either file name is not a valid format, it triggers the following error: Run-time error ‘5’: Invalid procedure call or argument

Notes on renaming files

We have used Excel workbooks in the examples, but we can use any file type. Also, we are not restricted to files; we can rename folders using the Name command too.

The Name command is core Visual Basic code. Therefore, it exists in other applications supporting VBA, such as Word and PowerPoint.

Related Posts:

• VBA code to copy, move, delete and manage files.
• VBA code library
• VBA Copy File – How to + 5 examples

Workbooks Collection

Workbook Object

Sheets Collection

Worksheet Object

Excel Workbook Object

Excel Worksheet Object

Как добавить новую книгу?

Добавить новую пустую книгу:

Delphi:

XL.Workbooks.Add(EmptyParam, lcid);

C#:

XL.Workbooks.Add(Type.Missing);

В первом параметре метода Add можно указать стандартный тип шаблона Excel. Если же в нем указать имя (с полным путем) подготовленного файла (шаблоном может быть и «обычный» файл XLS, а не только файл XLT), то можно открыть книгу на диске как шаблон.

Delphi:

XL.Workbooks.Add('MyTemplate.xls', lcid);

Откроет файл «MyTemplate1.xls», т.е. точно как обычный шаблон «Книга1.xls», но свой со своим форматированием, что позволит ускорить процесс экспорта данных в Excel, т.к. не придется форматировать ячейки и вызывать другие настройки листа.

Add Method (Workbooks Collection)

How to: Create New Workbooks

Как задать количество листов в новой книге?

Задать количество листов в новой книге можно перед добавлением новой книги:

Delphi:

XL.SheetsInNewWorkbook[lcid] := N; // N - новое количество листов (integer)
XL.Workbooks.Add(EmptyParam, lcid);

C#:

XL.SheetsInNewWorkbook = N;

Где N = 1..255

SheetsInNewWorkbook Property

Как открыть книгу, имеющуюся на диске?

Если книга находится не в папке, указанной в Excel.Application.DefaultFilePath, то нужно указывать полный путь к открываемому файлу .xls, даже если файл находится в текущей папке вашего приложения, т.к. Excel ничего про него не знает.

Delphi:

WB.ConnectTo(XL.Workbooks.Open(
      'МояКнига.xls', // Filename: WideString;
      2, // UpdateLinks: OleVariant; 2 - never update
      False, // ReadOnly: OleVariant;
      EmptyParam, // Format: OleVariant;

      EmptyParam, // Password: OleVariant;
      EmptyParam, // WriteResPassword: OleVariant;
      EmptyParam, // IgnoreReadOnlyRecommended: OleVariant;
      EmptyParam, // Origin: OleVariant;
      EmptyParam, // Delimiter: OleVariant;

      EmptyParam, // Editable: OleVariant;
      EmptyParam, // Notify: OleVariant;
      EmptyParam, // Converter: OleVariant;
      False, // AddToMru: OleVariant;
      EmptyParam, // Local: OleVariant;

      EmptyParam, // CorruptLoad: OleVariant;
      lcid));

C#:

XL.Workbooks.Open(
"Книга1.xls", // FileName
	false, // UpdateLinks
	false, //  ReadOnly
	Type.Missing, // Format
	Type.Missing, // Password
	Type.Missing, // WriteResPassword
	Type.Missing, // IgnoreReadOnlyRecommended
	Type.Missing, // Origin
	Type.Missing, // Delimiter
	true, // Editable
	Type.Missing, //  Notify
	Type.Missing, // Converter
	false, // AddToMru
	Type.Missing, // Local
	Type.Missing // CorruptLoad
);

Open Method

How to: Open Workbooks

Как сохранить книгу?

Save Method

SaveAs Method

How to: Save Workbooks

Как закрыть книгу без вопросов о сохранении? Как закрыть все книги?

Delphi:

// закрыть книгу без сохранения внесенных в нее изменений
oWorkBook.Close(0); // xlDontSaveChanges

// закрыть все книги без сохранения изменений
XL.DisplayAlerts[lcid] := False; // отключаем предупреждения
XL.Workbooks.Close(lcid); // закроем все книги

Close Method

How to: Close Workbooks

Как узнать имена всех открытых книг?

Узнать имена всех книг экземпляра Excel.Application можно в цикле, например, так:

Delphi:

for i := 1 to XL.Workbooks.Count do

        XL.Assistant.DoAlert('Книга', XL.Workbooks[i].Name, msoAlertButtonOK,
          msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault,
          False);
      // а вот так имя книги с полным путем к ней (свойство FullName)
    for i := 1 to XL.Workbooks.Count do

      XL.Assistant.DoAlert('Книга', XL.Workbooks[i].FullName[lcid], msoAlertButtonOK,
        msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault,
        False);

C#:

int R = 0;
foreach (Excel.Workbook WB in XL.Workbooks) {
oSheet.get_Range("A1", Type.Missing).get_Offset(R, 0).Formula = WB.FullName;
	R++;
}

Как найти определенную открытую книгу?

Точно так же, как в предыдущем ответе — по имени в свойстве Name. Если вы хотите сделать найденную книгу активной, то вызовите метод Activate

Name Property

Activate Method

Как переименовать книгу?

Переименовать книгу никак нельзя — только сохранить под другим именем методом SaveAs (смотрите «Как сохранить книгу»).

Как спрятать книгу?

Delphi:

// спрячем активную книгу

XL.ActiveWindow.Visible := False;

Windows Collection Object

Window Object

Как открыть текстовый файл в Excel’е?

Практически, так же как и обычную книгу, только внимательно указав дополнительные параметры в методе OpenText.

OpenText Method

How to: Open Text Files as Workbooks

Как узнать имена всех листов в книге и их количество?

Узнать количество листов в книге можно в цикле по коллекции Workbook.Sheets. Количество листов — свойство Sheets.Count. Имя листа — свойство Worksheet.Name.

Count Property

Name Property

How to: List All Worksheets in a Workbook

Как получить ссылку на активный лист в активной книге?

Обращаеясь к Excel.Application.ActiveSheet или WorkBook.ActiveSheet, вы получите ссылку на интерфейс IDispatch. Это происходит из-за того, что коллекция Excel.Application.Sheets может содержать объекты WorkSheet, Chart, Excel4MacroSheet (для поддержки Excel 4).

Delphi:

// получить ссылку на активный лист, ASheet: TExcelWorksheet
ASheet.ConnectTo(XL.ActiveSheet as _Worksheet);

// получить ссылку на второй лист активной книги
ASheet.ConnectTo(XL.ActiveWorkbook.Sheet[2] as _Worksheet);

C#:

Excel.Worksheet oSheet = (Excel.Worksheet) XL.ActiveSheet;
//
Excel.Worksheet oSheet = (Excel.Worksheet) XL.Sheets[1];

Определить тип листа можно, проверив свойство Worksheet.Type:

Delphi:

if ASheet.type_[lcid] = xlWorksheet then { это Worksheet };

C#:

if (oSheet.Type == Excel.XlSheetType.xlWorksheet) /* это Worksheet */ ;

ActiveWorkbook Property

ActiveSheet Property

Type Property

Как добавить новый лист в книгу? Как удалить лист?

При добавлении можно указать тип нового листа (WorkSheet, Chart, Excel4MacroSheet) и текущее положение. Добавленный лист будет активизирован автоматически (на него будет указывать свойство ActiveSheet)

// Добавим один новый лист после текущего
ASheet.ConnectTo(XL.ActiveWorkbook.Sheets.Add(EmptyParam, XL.ActiveSheet, 1, xlWorksheet, lcid));

// Удалить лист
XL.DisplayAlerts[lcid] := False; // отключим предуреждения
(XL.ActiveSheet as _Worksheet).Delete(lcid); // удаляем активный (можно любой) лист

Add Method

Delete Method

How to: Add New Worksheets to Workbooks

How to: Delete Worksheets from Workbooks

Нужно ли делать лист активным, чтобы записать в него данные?

Не нужно — переключение (активация) листов только замедлит экспорт данных. Получите ссылку на любой лист в книге (активной или нет) и работайте c ней, как с активной. Активизировать лист нужно только в случае необходимости, например, при вставке из буфера обмена, предварительном просмотре и др.

Как задать имя листу в книге?

// ASheet: ExcelWorksheet;
ASheet.ConnectTo(XL.ActiveSheet as _Worksheet);
ASheet.Name := 'Новое имя';

Name Property

Как выделить один или несколько листов в книге?

Delphi:

// выделить один лист
(XL.Sheets[1] as _Worksheet).Select(True, lcid);

// выделим сразу несколько листов в цикле
    for i := 1 to 4 do begin

      (XL.Sheets[i] as _Worksheet).Select(False, lcid);
      Application.ProcessMessages;
    end;

// листы можно выделить не в цикле, указав список выделяемых
// листов (индексы или имена) как массив
(XL.ActiveWorkbook.Sheets[VarArrayOf([1, 2, 3, 4])] as Sheets).Select(False, lcid);


// Select - выделить, Activate - активировать без снятия выделения, 
// если активировать лист в выделенном диапозоне
(XL.Sheets[4] as _Worksheet).Activate(lcid);

// Если попробовать активировать 5 лист (не в выделенном диапозоне),
// то выделенным окажется только один лист
(XL.Sheets[5] as _Worksheet).Activate(lcid);

Select Method

Activate Method

How to: Select a Worksheet

Как скопировать/переместить лист в одной книге? В другую книгу?

Delphi:

// скопировать лист в конец

ASheet.Copy(EmptyParam, XL.ActiveWorkbook.Sheets[XL.ActiveWorkbook.Sheets.Count]);
// переместим лист перед Лист4
ASheet.Move(XL.ActiveWorkbook.Sheets[4], EmptyParam);
// переместить лист в другую книгу в конец.
// Для копирования то же, только вместо Move вызвать метод Copy
ASheet.Move(EmptyParam, XL.Workbooks[2].Sheets[XL.Workbooks[2].Sheets.Count]);

Copy Method

Move Method

How to: Move Worksheets Within Workbooks

Как задать/убрать область печати? Как вызвать PrintPreview? Как напечатать лист?

Delphi:

// Зададим область печати A1:D10 
ASheet.PageSetup.PrintArea := '$A$1:$D$10';

// Удаляем область печати, присвоив пустую строку
ASheet.PageSetup.PrintArea := '';
// Вызов PrintPreview
ASheet.PrintPreview;
// Печать на любой принтер (в примере на "PDFCreator")
// Если на активный принтер, то вместо имени принтера указать EmptyParam
    ASheet.DefaultInterface.PrintOut(
      EmptyParam, // From: OleVariant;
      EmptyParam,  // To_: OleVariant;

      1, //Copies: OleVariant;
      EmptyParam, // Preview: OleVariant;
      'PDFCreator', // ActivePrinter: OleVariant;
      EmptyParam, // PrintToFile: OleVariant;

      True, //Collate: OleVariant;
      EmptyParam, //PrToFileName: OleVariant;
      lcid
    );

PrintArea Property

PrintOut Method

PrintPreview Method

How to: Print Worksheets

Как установить параметры печати: отступы на листе, ориентацию листа и др.?

Установка параметров печати — довольно продолжительный процесс, поэтому советую настроить их в предварительно подготовленном шаблоне. Все параметры печати задаются в свойстве PageSetup объекта Worksheet. Но учтите, что текст в свойствах Footer или Header для Left, Right, Center суммарно не должен превышать 255 символов.

Для задания отступов в сантиметрах используйте функцию Excel.Application.CentimetersToPoints

Delphi:

ASheet.Range['A1', EmptyParam].Formula :=
      'Любой текст, чтоб сработал PrintPreviw';
    ASheet.PageSetup.LeftMargin := 0;
    ASheet.PageSetup.TopMargin := 0;
    ASheet.PageSetup.RightMargin := 0;
    ASheet.PageSetup.BottomMargin := 0;
    ASheet.PageSetup.HeaderMargin := 0;
    ASheet.PageSetup.FooterMargin := 0;
    ASheet.PageSetup.FitToPagesWide := 1;
    ASheet.PageSetup.FitToPagesTall := 1;
    ASheet.PrintPreview(True, lcid);

Если вы выполните данный код, то заметите, как долго Excel настраивает все границы печати.

PageSetup Property

CentimetersToPoints Method

Как установить свои разрывы страниц (HPageBreaks) в области печати? Как узнать номер строки HpagePreak?

Для того, чтобы «появились» автоматические разрывы страниц, нужно перейти в режим разметки.

Delphi:

// переходим в режим разметки, чтобы заполнить коллекцию HPageBreaks
XL.ActiveWindow.View := xlPageBreakPreview;

// вставим разрыв перед 4-й строкой
ASheet.HPageBreaks.Add(ASheet.Range['A4', EmptyParam]);

// Как узнать номер строки, перед которой вставлен первый (индекс 1) HPageBreak
FirstPageBreak := ASheet.HPageBreaks[1].Location.Row;

Также вы можете «переместить» разрыв, присвоив новое значение свойству Location объекта HPageBreak

Delphi:

// переместим разрыв перед пятой строкой
ASheet.HPageBreaks[1].Location := Asheet.Range ['A5', EmptyParam];

View Property

HPageBreaks Collection Object

VPageBreaks Collection Object

Add Method

Как сделать так, чтобы на каждой странице повторялись заголовки колонок таблицы?

Нужно задать «сквозные» строки заголовка таблицы.

Delphi:

// "сквозная" вторая строка
ASheet.PageSetup.PrintTitleRows := '2:2';

PageSetup Property

Как спрятать рабочий лист?

Delphi:

ASheet.Visible[lcid] := xlSheetHidden;

Visible Property

How to: Hide Worksheets

Как установить пароль на существующий лист/книгу?

Protect Method

Unprotect Method

How to: Protect Workbooks

How to: Protect Worksheets

How to: Remove Protection from Worksheets

Как создать макрос из Delphi? Как выполнить макрос, имеющийся в книге?

Вам не удастся создать макрос программно, т.к. по умолчанию в Excel VBA Project отключен доступ к VBA из программ. Как включить эту возможность, читайте «PRB: Programmatic Access to Office XP VBA Project Is Denied»

Пример создания макроса с параметром и вызов его из программы:

Delphi:

try
      VBComp := WB.VBProject.VBComponents.Add(1); // vbext_ct_StdModule
      VBComp.Name := 'TestModule';
      // запишем туда наш макрос

      VBComp.CodeModule.AddFromString(
        'Public Sub Test(ByVal ADate As Date)'#10 +
        #9'MsgBox "Привет из VBA!" & Chr(13) & "Сегодня " & ADate, _'#10 +
        #9#9'vbInformation, "Test макроса"'#10 +
        'End Sub'

      );
    except
      ShowMessage('Нужно включить вручную в Excel''е "Доверять доступ к Visual Basic Project"');
    end;
    // выполним макрос
    XL.Run('Test', Date());

C#:

Microsoft.Vbe.Interop.VBComponent VBComp = XL.ActiveWorkbook.VBProject.VBComponents.Add(
	Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule);
VBComp.Name = "TestModule";
// запишем туда наш макрос
VBComp.CodeModule.AddFromString(
	"Public Sub Test(ByVal ADate As Date)n" +
	"tMsgBox "Привет из VBA!" & Chr(13) & "Сегодня " & ADate, _n" +
	"ttvbInformation, "Test макроса"n" +
"End Sub");
// и выполним его передав текущую дату
XL.Run("Test", DateTime.Today,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
	Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
	Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
	Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
	Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
	Type.Missing, Type.Missing, Type.Missing, Type.Missing
);

Если все же вам очень нужно добавить макрос, независимо от настроек доступа к VBA Project, то можно воспользоваться листом макросов xlExcel4MacroSheet. Макроязык представляет собой «команды».

Delphi:

ASheet := WB.Sheets.Add(EmptyParam, WB.Sheets[WB.Sheets.Count], 1,
      xlExcel4MacroSheet, lcid) as _Worksheet;
    ASheet.Range['A1', EmptyParam].Formula := '=alert("Привет из Excel4 MacroSheet!")';
    ASheet.Range['A2', EmptyParam].Formula := '=return()';
    ASheet.Range['A1', EmptyParam].Run(
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam
    );

Turn on or off Trust access to Visual Basic Project

How To Create and Call an Excel Macro Programmatically from VB

Programming To The Visual Basic Editor

Run Method

Будет ли работать макрос при выставленной «Очень высокая безопасность макросов» в Excel’е пользователя?

Записанные макросы в книге, открытой вашей программой всегда будут работать, независимо от выставленного в Excel’е «Уровня безопасности» для макросов.

Почему не работает макрос, записанный в книге?

Записанный в книге макрос может не работать по причине установленного антивируса. Например, установленный «Kaspersky Office Guard», входящий в состав «Антивирус Касперского», начисто отключает все вызовы VBA.

Полезные ссылки

Microsoft Excel Object Model

Automating Excel Using the Excel Object Model

Office Development — Excel

Migrating Excel VBA Solutions to Visual Studio 2005 Tools for Office

Converting Microsoft Office VBA Macros to Visual Basic .NET and C#

Microsoft Excel 2003 Language Reference

Understanding the Excel Object Model from a .NET Developer’s Perspective

Microsoft.Office.Interop.Excel Namespace

Excel Objects

Code Examples for Excel (C#)