Category Archives: coding

Integrating Google Drive

Most people know my favourite challenge is:

‘It can’t be done.’

So when a client wanted to update a dozen different google drive folders with different data every week, this came straight to my desk.

Google offer some great services, but they make integrating it into a business process a little clunky, or expensive.

Take Maps, for instance. If you want to use them for business there’s a $10k charge per annum. Interestingly, they’ve just dropped fusion tables, a quick way to integrate maps and data. That decision is going to bite somebody somewhere, but I digress.

Getting the data ready, good old Sql Server Reporting Services (SSRS) gave the basis of the data. An elegantly presented price list, in colour saved as a pdf. Setting up a subscription to save to a file share, rather than screen or email allowed me to create a folder of appropriate price lists.
A quick ferret around the SSRS subscription table gave me a clue how to run multiple subscriptions in a single pass.
In general I hate using a CURSOR to loop in SQL, I will almost do anything I can to avoid it. However, this really did seem the easiest way to produce a flexible batch of subscriptions.

declare @subscriptionID as NVARCHAR(50)
declare @mycursor as cursor
set @mycursor = CURSOR for
select SubscriptionID from ReportServer.dbo.Subscriptions where Description like ‘%\pricelist%’;
open @mycursor
fetch next from @mycursor into @subscriptionID
while @@FETCH_STATUS = 0
BEGIN
exec [ReportServer].dbo.AddEvent @EventType=’TimedSubscription’, @EventData=@subscriptionID
fetch next from @mycursor into @subscriptionID

END
CLOSE @mycursor
DEALLOCATE @mycursor

What I did encounter was a distinct lack of VB.NET examples of how to use the Google API (V3) Not only did not much exist, but the ones that did, appeared to have errors in them (most of them missed out the ‘Execute’). It’s like any API, some are worse than others and once you have worked with it. It starts to hang together and make sense.
Because Google drive does not actually care if files of the same name exist in the same folder, I created a delete function to make sure all copies of a document were deleted.

Private Sub DeleteFile(inFile As String, infolder As String)
Dim parents As New List(Of String)
Dim flist As New List(Of File)

If Service.ApplicationName <> “Google Drive VB Dot Net” Then CreateService()
Dim listRequest As FilesResource.ListRequest = Service.Files.List()
listRequest.Fields = “*”
Dim files As FileList = listRequest.Execute()
For Each myFile As File In files.Files
If myFile.Name = inFile Then
Dim plist As New List(Of String)
plist = myFile.Parents
If plist IsNot Nothing Then
If plist.Count > 0 Then

For Each par As String In plist
If par = infolder Then
Dim delme As FilesResource.DeleteRequest = Service.Files.Delete(myFile.Id)
delme.Execute()
End If

Next
End If
End If

End If
Next
End Sub

I did find the parent list an odd feature. Google drive will allow you to link a file into multiple folders. Rather like a Unix link. I know Windows has the same, but I have never found any applications that used it.

So, now by combining SSRS and some cloned .NET my client now has pricelists on an easy to access location for their sales folk to pick up.

Using VBA in Excel

After the last post, I got a couple of emails asking about using VBA in macros.
Remember that I am a programmer at heart, so there might be ways to do things using ‘raw’ excel functionality. I just find it easier to cut code.
My best advice on getting started is  is to use the macro recording function and then look at what gets recorded. Excel is writing VBA. So, with a little bit of knowledge it is possible to do quite complex things.
If I take the lines from the working version I will explain them a section at a time:

Sub trimit()

The macro is a VBA subroutine. The keyword Sub declares a subroutine Trimit() gives it a name. The last line is END SUB Each subroutine is bracketed by these lines allowing multiple routines to reside on the same piece of source code.

x = 1

If VBA finds no keyword at the start of a line it assumes the word LET. Therefore this line is creating a variable called ‘x’ and assigning a value to it of 1. (Read it as LET x = 1).  LET is the original BASIC command to assign a variable with a value. The variable is on the left of the equals sing, the value being assigned on the right.
The next line is almost exactly the same, except it declares a second variable called ‘y’.

y = 1

The fourth line is yet another assignment, but this is also using TWO VBA functions, rather than a specific value.

tvar = trim(Cells(y, x))


This means the line starts LET tvar =
I then use a Trim function. This removes any extra spaces from whatever is passed to it.

What is passed to it, is another function Cells. This takes two arguments. The y position (Row) and the x position, Column of the current sheet.

This means that 1,1 is cell ‘A1’ NOTE: The row is the first argument, and the column is the second.

If you’re using Excel, you already use functions. Functions are a useful piece of code that returns a result. EG: SUM([RANGE]) is something we all use. SUM is passed the Argument of a range and returns the value of all of the cells in that range added up.

 

Okay, that’s the first lesson. Hopefully, you can find where to create a macro/ VBA subroutine and understand how to assign a variable. The remaining part of the explanation will be along in the next few days.

Compile Error: Wrong number of arguments

SQL Data juggling.

Excel is a reasonable tool for juggling data from system to system and it has VBA behind it to make life easy if you can knock up a quick macro. So I thought …

As it happens, I haven’t needed to do too much data fiddling in the last year or so and I know I have become a little rusty. This sent me around in rings.

A quick export, fix a dozen rows and then import it back in.

The data would not go back in using the flat file import export tool for MSSQL. Truncating error.

I needed a quick macro I have written a dozen times to trim every cell in the sheet.

All of a sudden I am popping a compile error:

Compile Error: Wrong number of arguments or invalid property assignment.

What could I be getting wrong? Surely they haven’t changed the trim function in VBA? comment lines out, change things around, add a message to check what is going into the function.

Blushing now on how dim I was, I had to share this.

A) Because I have no pride and it made me chuckle

B) Because I realised that a lot of people can’t easily write a macro from memory to trim every cell and they might appreciate a working version.

What’s the difference?

Notice for some dim, brain out of gear reason I gave the macro the same name as the Trim function. How many years programming knowledge? 40 years! I fell into using a reserved word for something.

Below is the real code in case anybody wants it:

Sub trimit()
 x = 1
 y = 1
 tvar = trim(Cells(y, x))
 Do Until tvar = ""
         Do Until tvar = ""
            Cells(y, x) = tvar
            x = x + 1
            tvar = trim(Cells(y, x))
         Loop
         x = 1
         y = y + 1
         tvar = trim(Cells(y, x))
 Loop
End Sub