在excel中包含要在VBA中使用的文件

我使用的代码是用户浏览特定文件，然后将其写入文本文件。是否有办法将此文件包含在excel文件中，以便不必找到它。该文件是4mb kml文件

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intChoice = Application.FileDialog(msoFileDialogOpen).Show
If intChoice <> 0 Then
    newFile = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
End If


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(newFile)

Print #1, f.ReadAll

Set f = Nothing
Set fs = Nothing

Application.FileDialog（msoFileDialogOpen）.AllowMultiSelect=False
intChoice=Application.FileDialog（msoFileDialogOpen.Show）
如果选择0，那么
newFile=Application.FileDialog（_
msoFileDialogOpen）。选择编辑项（1）
如果结束
设置fs=CreateObject（“Scripting.FileSystemObject”）
Set f=fs.OpenTextFile（newFile）
打印#1，f.ReadAll
设置f=无
设置fs=Nothing

嗯，微软说一个单元格可以包含的字符总数：32767个字符。您可以做的是在循环中使用

ReadLine

而不是ReadAll将文件逐行读取到隐藏工作表的单元格中，尽管格式可能会丢失

你知道文件的确切位置吗，或者你想从单元格中读取它吗？问题是位置可能会改变，所以我希望将其作为excel文件的一部分嵌入。你是否要求按照@Roland的建议嵌入文件内容？位置不断变化，但数据是否发生变化？你是怎么找到这个位置的？也许我们可以教宏如何搜索它。数据不会改变，我正在尝试嵌入它，以便于共享excel工作表，这样就不会有两个文件需要跟踪。