Pull Bible verses into Microsoft Excel

The Biblia API will allow you to retrieve individual verses in a variety of formats, and it's likely that at least one of them will be suitable for your needs. More details (and examples) are available in the documentation at api.biblia.com.

You can see our list of available Bibles for the Biblia API here: http://api.biblia.com/docs/Available_Bibles

Typically, if we do not have a Bible, it is because our publisher prohibits the distribution of their content in this format. (in the particular case of the ESV, they have their own API)

Depending on how comfortable you are with text manipulation, you might also consider creating a Passage List in our desktop app and exporting it to a text file.

Since the api seems to be having issues at the moment, this is the macro I made. It just inputs the text into the same cell. If you wanna change the translation, you'll just need to change where the URL is pointing to. (I'm assuming you don't need this anymore, but maybe someone in the future can use it)

Sub bibleVerseGrabber()
'
' bibleVerseGrabber Macro
'
' Keyboard Shortcut: Ctrl+Shift+G
'
Dim spot As Range
Set spot = Selection
Dim IE As New InternetExplorer
IE.Visible = False
Dim BMV As String
BMV = Application.WorksheetFunction.EncodeURL(Selection.Value)
IE.navigate "https://biblia.com/bible/hcsb/" & BMV
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim bibVer As String
bibVer = Doc.getElementsByClassName("resourcetext")(0).innerText
IE.Quit
Dim superScript As Integer
Dim alphbet As String
superScript = 122

For superScript = 98 To superScript
alphbet = Chr(32) + Chr(superScript) + Chr(32)
bibVer = Replace(bibVer, alphbet, " ")
Debug.Print superScript
Next superScript

Selection = bibVer + Chr(40) + Selection.Value + Chr(41)
End Sub