使用Feeds可能更好，更快，但是由于D8版本仍在开发中；或者，您可以使用Excel + VBA（Excel附带的Visual Basic for Applications）+ Internet Explorer 11。
这是一个示例，您如何使用VBA导入CSV内容。
例如，假设您要导入它并使用来自CSV的信息创建新节点：
这是示例VBA代码：
Sub Drupal_Import()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim x As Integer
For x = 2 To 4 'this controls which rows get added, so only 2 to 4
myURL = "https://rgr79.ply.st/node/add/article"
With IE
.Visible = True 'makes your Internet Explorer window visible.
.navigate myURL
End With
Do
el = vbNullString
On Error Resume Next
Set HTML = IE.document
el = HTML.getElementsByClassName("visually-hidden")(1).innerText
DoEvents
Loop While el = vbNullString
'the above loops until the visualy-hidden class is detected, which means the edit form has been loaded
Application.Wait (Now + TimeValue("00:00:03")) 'tells the program to wait 3 secs.
Set HTML = IE.document
HTML.getElementById("edit-title-0-value").Value = Cells(x, 1).Value 'here the 1 is the Y (so 1 is Column A)
HTML.getElementById("edit-body-0-value").Value = Cells(x, 2).Value 'here the 2 is the Y (so 2 is Column B)
Cells(x, 3).Value = "Done" 'here we use the 3rd column (Column C) and mark it as Done to keep track.
HTML.getElementsByClassName("button js-form-submit form-submit")(1).Click 'clicks the submit button
Application.Wait (Now + TimeValue("00:00:00")) 'here I have a wait for 0, increase it to 2 or 3 if you see your VBA get stuck after submitting a node.
Do
el = vbNullString
On Error Resume Next
Set HTML = IE.document
el = HTML.getElementsByClassName("messages messages--status")(0).innerText
DoEvents
Loop While el = vbNullString
'all the above does is loops the code until the drupal message is detected, which means the node was loaded, after the submit.
Next x
End Sub
确保将域名直接更改myURL = "https://rgr79.ply.st/node/add/article"为您的域。如果您还不能告诉我，我正在使用Simplytest.me域。
如何添加VBA代码？
单击开发人员选项卡，然后单击Visual Basic图标（或ALT + F11）
并将代码粘贴到Sheet1（Sheet1）内
现在在工具栏中，单击tool，然后References
您将需要滚动，查找和选中标记
- Microsoft HTML对象库
- Microsoft Internet控件
注意：我知道它可以与Internet Explorer 11一起使用，不确定是否可以与新的Microsoft Edge浏览器一起使用。
现在，您可以运行脚本了。您可以通过单击“播放”按钮来实现
您也可以通过单击“宏”图标（请参见image2）来运行它，但是我更喜欢从VBA窗口中进行操作。
因此，您按下了播放按钮，IE窗口自动打开，您将看到以下内容：
哦，是的，您忘记登录了，大声笑。
因此，您继续登录到Drupal，然后关闭资源管理器（因为cookie历史记录会保存您的登录信息）并计划再次按下播放按钮。但是您不能...您看到播放按钮变灰并且无法对VBA代码进行任何更改...怎么回事？
那么您的代码仍在运行，因此您需要单击Stop（重置）按钮。
现在，您可以再次单击播放按钮，并享受自动化的世界。
重要
如果您打算在Body字段中插入内容（如本例所示），由于Drupal 8在此字段中使用CKEditor且CKEditor是JS，因此我们无法定位div类或ID；因此，我们无法在CKEditor中添加内容。
幸运的是，这里有一个解决方法。确保将IE 11安全设置设置为“高”，这将自动阻止所有JS。因此，CKeditor将不会加载，并且body字段将与其他字段一样。
如果需要编辑节点示例：
Sub Drupal_Edit()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim x As Integer
For x = 2 To 4 'this controls which rows get added, so only 2 to 4
myURL = "https://rgr79.ply.st/node/" & Cells(x, 3) & "/edit"
With IE
.Visible = True 'makes your Internet Explorer window visible.
.navigate myURL
End With
Do
el = vbNullString
On Error Resume Next
Set HTML = IE.document
el = HTML.getElementsByClassName("visually-hidden")(1).innerText
DoEvents
Loop While el = vbNullString
'the above loops until the visualy-hidden class is detected, which means the edit form has been loaded
Application.Wait (Now + TimeValue("00:00:04")) 'tells the program to wait 3 secs.
Set HTML = IE.document
HTML.getElementById("edit-title-0-value").Value = Cells(x, 1).Value 'here the 1 is the Y (so 1 is Column A)
HTML.getElementById("edit-body-0-value").Value = Cells(x, 2).Value 'here the 2 is the Y (so 2 is Column B)
Cells(x, 4).Value = "Done" 'here we use the 4th column (Column D) and mark it as Done to keep track.
HTML.getElementsByClassName("button js-form-submit form-submit")(1).Click 'clicks the submit button
Application.Wait (Now + TimeValue("00:00:00")) 'here I have a wait for 0, increase it to 2 or 3 if you see your VBA get stuck after submitting a node.
Do
el = vbNullString
On Error Resume Next
Set HTML = IE.document
el = HTML.getElementsByClassName("messages messages--status")(0).innerText
DoEvents
Loop While el = vbNullString
'all the above does is loops the code until the drupal message is detected, which means the node was loaded, after the submit.
Next x
End Sub