Excel VBA导入方法是什么？如何正确操作？

Excel VBA导入方法是什么？如何正确操作？

随着信息化时代的到来，Excel作为一款强大的数据处理工具，被广泛应用于各个领域。在Excel中，VBA（Visual Basic for Applications）编程语言可以帮助我们实现自动化操作，提高工作效率。其中，导入数据是Excel操作中常见的需求之一。本文将详细介绍Excel VBA导入方法，并指导如何正确操作。

一、Excel VBA导入方法概述

Excel VBA导入方法主要分为以下几种：

1. 使用VBA代码直接导入数据

2. 使用VBA调用外部程序导入数据

3. 使用VBA连接数据库导入数据

以下将分别介绍这三种方法的操作步骤。

二、使用VBA代码直接导入数据

1. 打开Excel，按下“Alt + F11”键进入VBA编辑器。

2. 在VBA编辑器中，选择“插入”菜单下的“模块”选项，新建一个模块。

3. 在新建的模块中，输入以下代码：

```vba

Sub ImportData()

Dim ws As Worksheet

Dim strFilePath As String

Dim strFile As String

Dim i As Long

' 设置文件路径

strFilePath = "C:\your\file\path\" ' 请根据实际情况修改路径

strFile = Dir(strFilePath & "*.csv") ' 读取CSV文件，可根据需要修改文件类型

' 遍历所有文件

Do While strFile ""

' 设置工作表

Set ws = ThisWorkbook.Sheets.Add

ws.Name = "Sheet" & i

' 读取CSV文件

With ws

.Cells.Clear ' 清空工作表内容

.Range("A1").Value = "列1" ' 设置标题行

.Range("B1").Value = "列2" ' 设置标题行

' ...（根据实际需要设置更多标题）

' 读取数据

.Range("A2").Value = Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",", Application.WorksheetFunction.TextJoin(",",