Extreme Newbie needing some help

[Scubasteve2365]

Hello guys

3rd year EE student here, needing some help.

Im taking a visual basic class, and to make a long story short. I have a program in which I need it to do some functions in Excel.

What I did was open excel, and record a Macro. This gave me my VBA code, I now need to get that code working in VB. Can anyone help me out.

Here is the code:

app.Columns("C:C").Select()
Selection.NumberFormat = "0.00"
Range("K6").Select()
Charts.Add()
ActiveChart.ChartType = .xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData(Source:=app.Sheets("Sheet1").Range("B:B,C:C"), PlotBy _
:=.xlrowcol.xlColumns)
ActiveChart.Location(Where:=Xlchartlocation.xllocationasnewsheet)
With ActiveChart
.HasTitle = False
.HasAxes(.xlCategory, excel.xlaxisgroup.xlPrimary).HasTitle = False
.Axes(.xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.Axes(xlValue).Select()
With ActiveChart.Axes(xlValue)
.MinimumScale = -5
.MaximumScale = 5
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = excel.xlAutomatic
.ReversePlotOrder = False
.ScaleType = excel.xlLinear
.DisplayUnit = excel.xlNone
End With
ActiveChart.SeriesCollection(1).Select()
ActiveChart.Axes(xlCategory).Select()
With ActiveChart.Axes(excel.xlCategory)
.MinimumScale = 0
.MaximumScale = 1024
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = excel.xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.SeriesCollection(1).Select()
ActiveChart.SeriesCollection(1).Points(147).Select()
ActiveChart.SeriesCollection(1).Points(102).Select()
ActiveChart.SeriesCollection(1).Points(14).Select()
ActiveChart.SeriesCollection(1).Points(38).Select()
ActiveChart.SeriesCollection(1).Points(59).Select()
ActiveChart.SeriesCollection(1).Points(39).Select()
ActiveChart.SeriesCollection(1).Points(25).Select()
ActiveChart.SeriesCollection(1).Points(50).Select()
ActiveChart.SeriesCollection(1).Points(103).Select()
ActiveChart.SeriesCollection(1).Points(83).Select()
ActiveChart.SeriesCollection(1).Points(62).Select()
ActiveChart.PlotArea.Select()
ActiveChart.SeriesCollection(1).Select()
ActiveChart.SeriesCollection(1).Points(71).Select()
ActiveChart.PlotArea.Select()
ActiveChart.SeriesCollection(1).Select()
With app.Selection.Border
.ColorIndex = 57
.Weight = xlThick
.LineStyle = xlContinuous
End With
With app.Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = True
.MarkerSize = 3
.Shadow = False
End With
ActiveChart.PlotArea.Select()
ActiveChart.Deselect()
ActiveChart.ChartArea.Select()
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = False
End With
ActiveChart.Axes(excel.xlCategory, excel.xlPrimary).CategoryType = xlAutomatic
With app.ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select()
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Fill.UserPicture(PictureFile:= _
"C:\Documents and Settings\sbishop\Desktop\SCOPEcrop.bmp")
Selection.Fill.Visible = True

Here is what I do know. I know that I need to add alot of App. and Excel.

I also am currently dimensioning excel as "Dim excel As New Application"

Im not sure if thats the proper way to dimension excel.

Also, here are my imports statements:

Imports System.Drawing
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Microsoft.office.interop.Excel

this is not a traditional VB class, our focus isnt solely on VB, but rather just using VB as a medium to integrate a USB microcontroller with Windows Applications.

any help would be appreciated

[RobDog888]

Welcome to the Forums.

Here is a link to some of my code for automating Excel from VB.NET.

http://www.vbforums.com/showpost.php...38&postcount=3

[zaza]

...and in my sig you'll find a link to Excel Graphing, which looks to be your objective. Admittedly it's in VBA as well, but contains some handy ways to set it up and the syntax is more or less identical, so as long as you reference it correctly from VB you should be OK.

zaza

[Scubasteve2365]

...and in my sig you'll find a link to Excel Graphing, which looks to be your objective. Admittedly it's in VBA as well, but contains some handy ways to set it up and the syntax is more or less identical, so as long as you reference it correctly from VB you should be OK.

zaza

Thanks guys...

Zaza, I already have my VBA code, as I just recorded the macro.

As you mentioned as long as a reference it correctly in VB ill be OK. Thats my problem. I am unable to properly reference it in VB.

I believe I have all the proper imports, what Im uncertain on is how to DIM excel.

I know that I need to add "app." in front of things that reference an active chart ect. I also know that I need to add an "excel.xlaxistype." in front of things like .xlXYScatterSmoothNoMarkers and xlaxisgroup.xlPrimary.

The problem is that I dont know if thats all I need to do. When I add excel. to any line I get a blue squiggly under the word excel. That is why I dimensioned excel as a new app, but im uncertain if that is the proper dimension.

I know this is probably trivial, but Ive never done this before, and I only need to do it once.

[RobDog888]

Did you check my example code?

Did you add the reference and the declarations of the application object like in my code? Post an update of your code in vb.net.