Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Coded by bwh
- ' copyright, left, strafe!
- ' http://wow.curse.com/downloads/wow-addons/details/beancounter-export.aspx
- Option Base 1
- ' constants to setup which column each data should appear. there is no logic check involved, so be careful not to give duplicate column numbers!
- Const ASStatus = 1
- Const ASCharName = 2
- Const ASFaction = 3
- Const ASItemName = 4
- Const ASCount = 5
- Const ASBid = 6
- Const ASBidPer = 7
- Const ASBuyout = 8
- Const ASBuyoutPer = 9
- Const ASDeposit = 10
- Const ASDepositPer = 11
- Const ASDay = 12
- Const ASMonth = 13
- Const ASYear = 14
- Const ASBuyer = 15
- Const ASFee = 16
- Const ASFeePer = 17
- Const ASNetGain = 18
- Const ASReason = 16
- Const ASItemID = 19
- Const AFItemID = 15
- Const MBuyoutItemID = 17
- Const MBidItemID = 17
- Dim quit As Boolean
- Private Sub lolFileOpen()
- quit = False
- Dim fd As FileDialog
- Set fd = Application.FileDialog(msoFileDialogOpen)
- With fd
- .AllowMultiSelect = False
- .InitialFileName = "C:\Program Files\World of Warcraft\"
- .Title = "full path to BeanCounter.lua? should be something like ...\WoW\WTF\Account\xxx\SavedVariables\BeanCounter.lua"
- .Filters.clear
- .Filters.Add "LUA files", "*.lua"
- If .Show = -1 Then
- If .SelectedItems.Count > 0 Then
- inputFile = .SelectedItems.Item(1)
- Sheets("settings").Cells(1, 2).Value = inputFile
- Else
- MsgBox "File dialog did not show!", vbCritical, "Warning"
- quit = True
- Exit Sub
- End If
- Else
- MsgBox "No input file specified!", vbCritical, "Warning"
- quit = True
- Exit Sub
- End If
- End With
- End Sub
- Private Sub ReadFile()
- 'Debug.Print Now
- Application.EnableCancelKey = xlDisabled
- Call Clearing
- Dim fullpath As String
- Dim inputFile As String
- Dim fileContents As String
- Dim ServerName As String
- Dim procAS As Boolean, procAF As Boolean, procMBO As Boolean, blnAutoFilter As Boolean, procMBid As Boolean, blnCurrencyFormat As Boolean
- Dim myRegExp As RegExp, myRegExp2 As RegExp
- Dim myMatches As MatchCollection, myItems As MatchCollection
- Dim myMatch As Match, myItem As Match
- Dim mxas As Double, mxaf As Double, mxmb As Double
- Dim arrItemIDs() As String
- Dim arrAS()
- Dim arrAF()
- Dim arrMB()
- Dim arrMBid()
- If Sheets("settings").Cells(1, 2).Value = "Enter full filename of BeanCounter.lua or click Browse" Then
- Call lolFileOpen
- If quit Then Exit Sub
- End If
- inputFile = Trim(Sheets("settings").Cells(1, 2).Value)
- ' inputFile = InputBox("full path to BeanCounter.lua? should be something like ...\WoW\WTF\Account\xxx\SavedVariables\BeanCounter.lua", "BeanCounter.lua full path?")
- ' inputFile = "c:\Documents and Settings\bwh\Desktop\BeanCounter.lua"
- UseDuration = False
- ServerName = Sheets("settings").Cells(2, 2).Value
- CharacterName = Sheets("settings").Cells(3, 2).Value
- Duration = Sheets("settings").Cells(4, 2).Value
- If Duration > 0 Then UseDuration = True
- If Sheets("settings").Cells(5, 2).Value = "Process" Then procAS = True
- If Sheets("settings").Cells(6, 2).Value = "Process" Then procAF = True
- If Sheets("settings").Cells(7, 2).Value = "Process" Then procMBO = True
- If Sheets("settings").Cells(8, 2).Value = "Process" Then procMBid = True
- If Sheets("settings").Cells(9, 2).Value = "Yes" Then blnAutoFilter = True
- If Sheets("settings").Cells(10, 2).Value = "Yes" Then blnCurrencyFormat = True
- ReDim arrItemIDs(150000)
- ReDim arrAS(500000, 19)
- ReDim arrAF(500000, 15)
- ReDim arrMBO(500000, 17)
- ReDim arrMBid(500000, 17)
- mxas = 1
- mxaf = 1
- mxmb = 1
- mxmbid = 1
- Set myRegExp1 = New RegExp: myRegExp1.IgnoreCase = True: myRegExp1.Global = True: myRegExp1.MultiLine = True
- Set myRegExp2 = New RegExp: myRegExp2.IgnoreCase = True: myRegExp2.Global = True: myRegExp2.MultiLine = True
- Set myRegExp3 = New RegExp: myRegExp3.IgnoreCase = True: myRegExp3.Global = True: myRegExp3.MultiLine = True
- Set myRegExp4 = New RegExp: myRegExp4.IgnoreCase = True: myRegExp4.Global = True: myRegExp4.MultiLine = True
- Set myregexp5 = New RegExp: myregexp5.IgnoreCase = True: myregexp5.Global = True: myregexp5.MultiLine = True
- Set myregexp6 = New RegExp: myregexp6.IgnoreCase = True: myregexp6.Global = True: myregexp6.MultiLine = True
- Set myregexp7 = New RegExp: myregexp7.IgnoreCase = True: myregexp7.Global = True: myregexp7.MultiLine = True
- Set myregexp8 = New RegExp: myregexp8.IgnoreCase = True: myregexp8.Global = True: myregexp8.MultiLine = True
- Set myregexp9 = New RegExp: myregexp9.IgnoreCase = True: myregexp9.Global = True: myregexp9.MultiLine = True
- Set myRegExp10 = New RegExp: myRegExp10.IgnoreCase = True: myRegExp10.Global = True: myRegExp10.MultiLine = True
- myRegExp10.Pattern = "^\t\[""([\s\S]*?)""] = {([\s\S]*?)^\t},$"
- myRegExp1.Pattern = "^BeanCounterDBNames = {([\s\S]*?)^}$"
- myRegExp2.Pattern = "^[\s\S]*?\[""(\d+?):[\s\S]*?;([\s\S]*?)"","
- myRegExp3.Pattern = "^\t\t\[""(\S*?)""] = {([\s\S]*?)^\t\t},$"
- 'myRegExp3.Pattern = "^\t\t\[""(\w*?)""] = {([\s\S]*?)^\t\t},$"
- myRegExp4.Pattern = "^\t\t\t\[""(\w*?)""] = {([\s\S]*?)^\t\t\t},"
- myregexp5.Pattern = "^\t\t\t\t\[""(\w*?)""] = {([\s\S]*? = {[\s\S]*?)^\t\t\t\t},"
- myregexp6.Pattern = """([\s\S]*?)""[\s\S]*?"
- myregexp7.Pattern = "^\t\t\t\t\[""(\w*?)""] = {([\s\S]*? = {[\s\S]*?)^\t\t\t\t},"
- myregexp8.Pattern = "^\t\t\t\t\t\[""([\s\S]*?)""] = {([\s\S]*?)^\t\t\t\t\t},"
- myregexp9.Pattern = """([\s\S]*?)""[\s\S]*?"
- Open inputFile For Input As #1
- ' replacing my code with the one suggested by subxero to support unicode chars
- ' fileContents = Input$(LOF(1), 1)
- ' Close #1
- Dim readlua
- Set readlua = CreateObject("ADODB.Stream")
- readlua.Charset = "utf-8"
- readlua.Open
- readlua.LoadFromFile inputFile
- fileContents = readlua.ReadText
- readlua.Close
- Close #1
- Set myMatches = myRegExp1.Execute(fileContents) ' settings,itemIDArray,Servername
- For Each myMatch In myMatches
- Set myItems = myRegExp2.Execute(myMatch.SubMatches(0)) ' ["36904:0"] = "cffffffff;Tiger Lily",
- For Each myItem In myItems
- arrItemIDs(myItem.SubMatches(0)) = myItem.SubMatches(1)
- Next
- Next
- Set myMatches = myRegExp10.Execute(fileContents) ' settings,itemIDArray,Servername
- For Each myMatch In myMatches
- Select Case myMatch.SubMatches(0)
- Case "settings"
- 'do nothing
- Case ServerName
- nx = 1
- Set myChars = myRegExp3.Execute(myMatch.SubMatches(1)) ' charnames
- For Each mychar In myChars
- If CharacterName = "" Or CharacterName = mychar.SubMatches(0) Then
- Set myinformation = myRegExp4.Execute(mychar.SubMatches(1)) ' completedAuctions, vendorbuy, etc
- For Each myinfo In myinformation
- Select Case myinfo.SubMatches(0)
- Case "completedAuctions"
- If procAS Then
- Set completedAuctions = myregexp5.Execute(myinfo.SubMatches(1))
- For Each completedauction In completedAuctions
- Set compledauctionsubitems = myregexp8.Execute(completedauction.SubMatches(1))
- For Each compledauctionsubitem In compledauctionsubitems
- Set completedAuctiondetails = myregexp6.Execute(compledauctionsubitem.SubMatches(1))
- For Each completedAuctiondetail In completedAuctiondetails
- '"1;4465000;0;235000;4700000;4700000;Asgear;1261957615;;H", -- [1]
- dtaarr = Split(completedAuctiondetail.SubMatches(0), ";")
- If (Not UseDuration) Or (Abs(DateDiff("s", DateSerial(1970, 1, 1), Now) - dtaarr(7)) <= (Duration * 86400)) Then
- arrAS(mxas, ASStatus) = "Success"
- arrAS(mxas, ASCharName) = mychar.SubMatches(0)
- arrAS(mxas, ASItemName) = arrItemIDs(completedauction.SubMatches(0))
- arrAS(mxas, ASCount) = dtaarr(0)
- If dtaarr(2) = "" Then dtaarr(2) = 0
- arrAS(mxas, ASNetGain) = dtaarr(1) - dtaarr(2)
- arrAS(mxas, ASDeposit) = dtaarr(2)
- If dtaarr(2) <> "" Then arrAS(mxas, ASDepositPer) = dtaarr(2) / dtaarr(0)
- arrAS(mxas, ASFee) = dtaarr(3)
- If dtaarr(3) <> "" Then arrAS(mxas, ASFeePer) = dtaarr(3) / dtaarr(0)
- arrAS(mxas, ASBid) = dtaarr(5)
- If dtaarr(5) <> "" Then arrAS(mxas, ASBidPer) = dtaarr(5) / dtaarr(0)
- arrAS(mxas, ASBuyout) = dtaarr(4)
- If dtaarr(4) <> "" Then arrAS(mxas, ASBuyoutPer) = dtaarr(4) / dtaarr(0)
- arrAS(mxas, ASBuyer) = dtaarr(6)
- arrAS(mxas, ASDay) = Day(NetTimeToVbTime(dtaarr(7)))
- arrAS(mxas, ASMonth) = Month(NetTimeToVbTime(dtaarr(7)))
- arrAS(mxas, ASYear) = Year(NetTimeToVbTime(dtaarr(7)))
- arrAS(mxas, ASFaction) = dtaarr(9)
- arrAS(mxas, ASItemID) = completedauction.SubMatches(0)
- mxas = mxas + 1
- End If
- Next completedAuctiondetail
- Next compledauctionsubitem
- Next completedauction
- End If
- Case "failedAuctions"
- If procAF Then
- Set failedauctions = myregexp7.Execute(myinfo.SubMatches(1))
- For Each failedauction In failedauctions
- Set failedauctionsubitems = myregexp8.Execute(failedauction.SubMatches(1))
- For Each failedauctionsubitem In failedauctionsubitems
- Set failedAuctiondetails = myregexp9.Execute(failedauctionsubitem.SubMatches(1))
- For Each failedAuctiondetail In failedAuctiondetails
- '"1;;60;;532000;478740;;1261790697;;H", -- [1]
- dtaarr = Split(failedAuctiondetail.SubMatches(0), ";")
- If (Not UseDuration) Or (Abs(DateDiff("s", DateSerial(1970, 1, 1), Now) - dtaarr(7)) <= (Duration * 86400)) Then
- arrAF(mxaf, ASStatus) = "Failed"
- arrAF(mxaf, ASCharName) = mychar.SubMatches(0)
- arrAF(mxaf, ASItemName) = arrItemIDs(failedauction.SubMatches(0))
- arrAF(mxaf, ASCount) = dtaarr(0)
- arrAF(mxaf, ASDeposit) = dtaarr(2)
- If dtaarr(2) <> "" Then arrAF(mxaf, ASDepositPer) = dtaarr(2) / dtaarr(0)
- arrAF(mxaf, ASBid) = dtaarr(5)
- If dtaarr(5) <> "" Then arrAF(mxaf, ASBidPer) = dtaarr(5) / dtaarr(0)
- arrAF(mxaf, ASBuyout) = dtaarr(4)
- If dtaarr(4) <> "" Then arrAF(mxaf, ASBuyoutPer) = dtaarr(4) / dtaarr(0)
- arrAF(mxaf, ASDay) = Day(NetTimeToVbTime(dtaarr(7)))
- arrAF(mxaf, ASMonth) = Month(NetTimeToVbTime(dtaarr(7)))
- arrAF(mxaf, ASYear) = Year(NetTimeToVbTime(dtaarr(7)))
- arrAF(mxaf, ASFaction) = dtaarr(9)
- arrAF(mxaf, AFItemID) = failedauction.SubMatches(0)
- mxaf = mxaf + 1
- End If
- Next failedAuctiondetail
- Next failedauctionsubitem
- Next failedauction
- End If
- Case "completedBidsBuyouts"
- If procMBO Or procMBid Then
- Set completedBuyOuts = myregexp5.Execute(myinfo.SubMatches(1))
- For Each completedBuyOut In completedBuyOuts
- Set compledauctionsubitems = myregexp8.Execute(completedBuyOut.SubMatches(1))
- For Each compledauctionsubitem In compledauctionsubitems
- Set completedBuyOutdetails = myregexp6.Execute(compledauctionsubitem.SubMatches(1))
- For Each completedBuyOutdetail In completedBuyOutdetails
- '"1;0;;0;70000;20882;Caponator;1271626072;Disenchant;H", -- [1]
- '"1;4465000;0;235000;4700000;4700000;Asgear;1261957615;;H", -- [1]
- dtaarr = Split(completedBuyOutdetail.SubMatches(0), ";")
- If (Not UseDuration) Or (Abs(DateDiff("s", DateSerial(1970, 1, 1), Now) - dtaarr(7)) <= (Duration * 86400)) Then
- If dtaarr(5) = dtaarr(4) And procMBO Then
- arrMBO(mxmb, ASStatus) = "Bought"
- arrMBO(mxmb, ASCharName) = mychar.SubMatches(0)
- arrMBO(mxmb, ASItemName) = arrItemIDs(completedBuyOut.SubMatches(0))
- arrMBO(mxmb, ASCount) = dtaarr(0)
- arrMBO(mxmb, ASDeposit) = dtaarr(2)
- If dtaarr(2) <> "" Then arrMBO(mxmb, ASDepositPer) = dtaarr(2) / dtaarr(0)
- arrMBO(mxmb, ASBid) = dtaarr(5)
- If dtaarr(5) <> "" Then arrMBO(mxmb, ASBidPer) = dtaarr(5) / dtaarr(0)
- arrMBO(mxmb, ASBuyout) = dtaarr(4)
- If dtaarr(4) <> "" Then arrMBO(mxmb, ASBuyoutPer) = dtaarr(4) / dtaarr(0)
- arrMBO(mxmb, ASBuyer) = dtaarr(6)
- arrMBO(mxmb, ASDay) = Day(NetTimeToVbTime(dtaarr(7)))
- arrMBO(mxmb, ASMonth) = Month(NetTimeToVbTime(dtaarr(7)))
- arrMBO(mxmb, ASYear) = Year(NetTimeToVbTime(dtaarr(7)))
- arrMBO(mxmb, ASFaction) = dtaarr(9)
- arrMBO(mxmb, ASReason) = dtaarr(8)
- arrMBO(mxmb, MBuyoutItemID) = completedBuyOut.SubMatches(0)
- mxmb = mxmb + 1
- ElseIf procMBid Then
- arrMBid(mxmbid, ASStatus) = "Bought"
- arrMBid(mxmbid, ASCharName) = mychar.SubMatches(0)
- arrMBid(mxmbid, ASItemName) = arrItemIDs(completedBuyOut.SubMatches(0))
- arrMBid(mxmbid, ASCount) = dtaarr(0)
- arrMBid(mxmbid, ASDeposit) = dtaarr(2)
- If dtaarr(2) <> "" Then arrMBid(mxmbid, ASDepositPer) = dtaarr(2) / dtaarr(0)
- arrMBid(mxmbid, ASBid) = dtaarr(5)
- If dtaarr(5) <> "" Then arrMBid(mxmbid, ASBidPer) = dtaarr(5) / dtaarr(0)
- arrMBid(mxmbid, ASBuyout) = dtaarr(4)
- If dtaarr(4) <> "" Then arrMBid(mxmbid, ASBuyoutPer) = dtaarr(4) / dtaarr(0)
- arrMBid(mxmbid, ASBuyer) = dtaarr(6)
- arrMBid(mxmbid, ASDay) = Day(NetTimeToVbTime(dtaarr(7)))
- arrMBid(mxmbid, ASMonth) = Month(NetTimeToVbTime(dtaarr(7)))
- arrMBid(mxmbid, ASYear) = Year(NetTimeToVbTime(dtaarr(7)))
- arrMBid(mxmbid, ASFaction) = dtaarr(9)
- arrMBid(mxmbid, ASReason) = dtaarr(8)
- arrMBid(mxmbid, MBidItemID) = completedBuyOut.SubMatches(0)
- mxmbid = mxmbid + 1
- End If
- End If
- Next completedBuyOutdetail
- Next compledauctionsubitem
- Next completedBuyOut
- End If
- Case "version"
- Case "faction"
- Case "wealth"
- Case "vendorbuy"
- Case "vendorsell"
- Case "postedAuctions"
- Case "postedBids"
- Case "failedBids"
- Case "completedAuctionsNeutral"
- Case "failedAuctionsNeutral"
- Case "completedBidsBuyoutsNeutral"
- Case "failedBidsNeutral"
- Case "mailbox"
- End Select
- nx = nx + 1
- Next myinfo
- End If
- Next mychar
- End Select
- Next
- Sheets("AuctionsSuccess").Range("A2:S500001") = arrAS
- Sheets("AuctionsSuccess").Rows(mxas + 1 & ":500001").Delete
- Sheets("AuctionsFailed").Range("A2:O500001") = arrAF
- Sheets("AuctionsFailed").Rows(mxaf + 1 & ":500001").Delete
- Sheets("MyBuyouts").Range("A2:Q500001") = arrMBO
- Sheets("MyBuyouts").Rows(mxmb + 1 & ":500001").Delete
- Sheets("MyBids").Range("A2:Q500001") = arrMBid
- Sheets("MyBids").Rows(mxmbid + 1 & ":500001").Delete
- If blnAutoFilter Then
- Sheets("AuctionsSuccess").Cells(1, 1).CurrentRegion.AutoFilter
- Sheets("AuctionsFailed").Cells(1, 1).CurrentRegion.AutoFilter
- Sheets("MyBuyouts").Cells(1, 1).CurrentRegion.AutoFilter
- Sheets("MyBids").Cells(1, 1).CurrentRegion.AutoFilter
- End If
- If blnCurrencyFormat Then
- Sheets("AuctionsSuccess").Range("F:K").NumberFormat = "0""g ""##""s ""##""c"""
- Sheets("AuctionsSuccess").Range("P:R").NumberFormat = "0""g ""##""s ""##""c"""
- Sheets("AuctionsFailed").Range("F:K").NumberFormat = "0""g ""##""s ""##""c"""
- Sheets("MyBuyouts").Range("F:I").NumberFormat = "0""g ""##""s ""##""c"""
- Sheets("MyBids").Range("F:I").NumberFormat = "0""g ""##""s ""##""c"""
- End If
- Application.EnableCancelKey = xlenabled
- 'Debug.Print Now
- MsgBox "Done"
- End Sub
- Private Sub Clearing()
- Sheets("AuctionsSuccess").Cells.clear
- Sheets("AuctionsFailed").Cells.clear
- Sheets("MyBuyouts").Cells.clear
- Sheets("MyBids").Cells.clear
- Sheets("AuctionsSuccess").Cells(1, ASStatus).Value = "Status"
- Sheets("AuctionsSuccess").Cells(1, ASCharName).Value = "CharacterName"
- Sheets("AuctionsSuccess").Cells(1, ASItemName).Value = "ItemName"
- Sheets("AuctionsSuccess").Cells(1, ASCount).Value = "Count"
- Sheets("AuctionsSuccess").Cells(1, ASNetGain).Value = "NetGain"
- Sheets("AuctionsSuccess").Cells(1, ASBid).Value = "Bid"
- Sheets("AuctionsSuccess").Cells(1, ASBidPer).Value = "BidPer"
- Sheets("AuctionsSuccess").Cells(1, ASBuyout).Value = "Buyout"
- Sheets("AuctionsSuccess").Cells(1, ASBuyoutPer).Value = "BuyoutPer"
- Sheets("AuctionsSuccess").Cells(1, ASDeposit).Value = "Deposit"
- Sheets("AuctionsSuccess").Cells(1, ASDepositPer).Value = "DepositPer"
- Sheets("AuctionsSuccess").Cells(1, ASFee).Value = "Fee"
- Sheets("AuctionsSuccess").Cells(1, ASFeePer).Value = "FeePer"
- Sheets("AuctionsSuccess").Cells(1, ASDay).Value = "Day"
- Sheets("AuctionsSuccess").Cells(1, ASMonth).Value = "Month"
- Sheets("AuctionsSuccess").Cells(1, ASYear).Value = "Year"
- Sheets("AuctionsSuccess").Cells(1, ASBuyer).Value = "Buyer"
- Sheets("AuctionsSuccess").Cells(1, ASFaction).Value = "Faction"
- Sheets("AuctionsFailed").Cells(1, ASStatus).Value = "Status"
- Sheets("AuctionsFailed").Cells(1, ASCharName).Value = "CharacterName"
- Sheets("AuctionsFailed").Cells(1, ASItemName).Value = "ItemName"
- Sheets("AuctionsFailed").Cells(1, ASCount).Value = "Count"
- Sheets("AuctionsFailed").Cells(1, ASBid).Value = "Bid"
- Sheets("AuctionsFailed").Cells(1, ASBidPer).Value = "BidPer"
- Sheets("AuctionsFailed").Cells(1, ASBuyout).Value = "Buyout"
- Sheets("AuctionsFailed").Cells(1, ASBuyoutPer).Value = "BuyoutPer"
- Sheets("AuctionsFailed").Cells(1, ASDeposit).Value = "Deposit"
- Sheets("AuctionsFailed").Cells(1, ASDepositPer).Value = "DepositPer"
- Sheets("AuctionsFailed").Cells(1, ASDay).Value = "Day"
- Sheets("AuctionsFailed").Cells(1, ASMonth).Value = "Month"
- Sheets("AuctionsFailed").Cells(1, ASYear).Value = "Year"
- Sheets("AuctionsFailed").Cells(1, ASFaction).Value = "Faction"
- Sheets("MyBuyouts").Cells(1, ASStatus).Value = "Status"
- Sheets("MyBuyouts").Cells(1, ASCharName).Value = "CharacterName"
- Sheets("MyBuyouts").Cells(1, ASItemName).Value = "ItemName"
- Sheets("MyBuyouts").Cells(1, ASCount).Value = "Count"
- Sheets("MyBuyouts").Cells(1, ASBid).Value = "Bid"
- Sheets("MyBuyouts").Cells(1, ASBidPer).Value = "BidPer"
- Sheets("MyBuyouts").Cells(1, ASBuyout).Value = "Buyout"
- Sheets("MyBuyouts").Cells(1, ASBuyoutPer).Value = "BuyoutPer"
- Sheets("MyBuyouts").Cells(1, ASDeposit).Value = "Deposit"
- Sheets("MyBuyouts").Cells(1, ASDepositPer).Value = "DepositPer"
- Sheets("MyBuyouts").Cells(1, ASDay).Value = "Day"
- Sheets("MyBuyouts").Cells(1, ASMonth).Value = "Month"
- Sheets("MyBuyouts").Cells(1, ASYear).Value = "Year"
- Sheets("MyBuyouts").Cells(1, ASBuyer).Value = "Seller"
- Sheets("MyBuyouts").Cells(1, ASFaction).Value = "Faction"
- Sheets("MyBuyouts").Cells(1, ASReason).Value = "Reason"
- Sheets("MyBids").Cells(1, ASStatus).Value = "Status"
- Sheets("MyBids").Cells(1, ASCharName).Value = "CharacterName"
- Sheets("MyBids").Cells(1, ASItemName).Value = "ItemName"
- Sheets("MyBids").Cells(1, ASCount).Value = "Count"
- Sheets("MyBids").Cells(1, ASBid).Value = "Bid"
- Sheets("MyBids").Cells(1, ASBidPer).Value = "BidPer"
- Sheets("MyBids").Cells(1, ASBuyout).Value = "Buyout"
- Sheets("MyBids").Cells(1, ASBuyoutPer).Value = "BuyoutPer"
- Sheets("MyBids").Cells(1, ASDeposit).Value = "Deposit"
- Sheets("MyBids").Cells(1, ASDepositPer).Value = "DepositPer"
- Sheets("MyBids").Cells(1, ASDay).Value = "Day"
- Sheets("MyBids").Cells(1, ASMonth).Value = "Month"
- Sheets("MyBids").Cells(1, ASYear).Value = "Year"
- Sheets("MyBids").Cells(1, ASBuyer).Value = "Seller"
- Sheets("MyBids").Cells(1, ASFaction).Value = "Faction"
- Sheets("MyBids").Cells(1, ASReason).Value = "Reason"
- End Sub
- Private Function NetTimeToVbTime(NetDate As Variant) As Double
- Const BaseDate# = 25569 'DateSerial(1970, 1, 1)
- Const SecsPerDay# = 86400
- NetTimeToVbTime = BaseDate + (CDbl(NetDate) / SecsPerDay)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement