Visual Basic を使用して Box.com ドキュメントに接続するためのサンプル コードがあるかどうかを知っている人はいますか?
さまざまなファイルからデータを取得する精巧な VB Excel マクロがいくつかあります。ファイル システムとして box.com を使用するように切り替えたので、これらのマクロを使用して、必要なデータを Box.com に保存されているファイルに読み書きできるようにします。
VBScript でファイルを Box にアップロードするためのサンプル コードを次に示します。
api_key = "Your API key from Box.net"
BoxNetUserName = "Your Box.net username"
BoxNetPwd = "Your Box.net Password"
UploadFileBoxNet("c:\coupons.pdf")
Function UploadFileBoxNet(filePath)
Print filepath
Set WinHttpReq = CreateObject("Msxml2.ServerXMLHTTP")
'**********Requesting Ticket
strURL = "https://www.box.net/api/1.0/rest?action=get_ticket&api_key=" & api_key
temp = WinHttpReq.Open("POST", strURL, false)
WinHttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
WinHttpReq.Send()
getTicket = WinHttpReq.ResponseText
Print strURL
Print getTicket
'**********Extracting Ticket from XML Response********
getTicket = Left(getTicket,Len(getTicket)-20)
getTicket = Right(getTicket,Len(getTicket) - Instr(getTicket,"t>")-1)
Print getTicket
'****Opening Authentication Window for Box.net********
Systemutil.Run "iexplore", "https://www.box.net/api/1.0/auth/" & getTicket
Browser("name:=Box.net.*").WebEdit("name:=login").Set BoxNetUserName
Browser("name:=Box.net.*").WebEdit("name:=password").Set BoxNetPwd
Browser("name:=Box.net.*").WebElement("name:=Login","height:=25").Click
Browser("name:=Box.net.*").Sync
Browser("name:=Box.net.*").Close
'*****Requesting Auth_Token
strUrl = "https://www.box.net/api/1.0/rest?action=get_auth_token&api_key=" api_key & "&ticket=" & getTicket
temp = WinHttpReq.Open("POST", strURL, false)
WinHttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
WinHttpReq.Send()
Auth_Token = WinHttpReq.ResponseText
Print strURL
'******Parsing Auth Token from XML Response
Set xmlObj = XMLUtil.CreateXML()
xmlObj.Load Auth_Token
Print xmlObj.ToString()
Print " ========================================================================= "
Set myToken = xmlObj.ChildElementsByPath("/response/auth_token")
Print myToken.Count
For i = 1 to myToken.Count
Auth_Token = myToken.Item(i).Value()
Print Auth_Token
Print " "
Next
strURL = "https://upload.box.net/api/1.0/upload/" & Auth_Token & "/0"
'*****Calling the Upload File method of the .Net Class System.Net.WebClient
Set wcl = DotNetFactory.CreateInstance ("System.Net.WebClient")
strResult = wcl.UploadFile(strURL, filepath)
End Function