Styjun

What's weird about Proto-Indo-European Stops?

Why were the rules for Proliferate changed?

Game artist computer workstation set-up – is this overkill?

What's the difference between "ricochet" and "bounce"?

Appropriate age to involve kids in life changing decisions

My large rocket is still flipping over

I want to write a blog post building upon someone else's paper, how can I properly cite/credit them?

Many one decreasing function?

Select list elements based on other list

How to increase speed on my hybrid bike with flat handlebars and 700X35C tyres?

If an attacker targets a creature with the Sanctuary spell cast on them, but fails the Wisdom save, can they choose not to attack anyone else?

What did Varys actually mean?

Texture vs. Material vs. Shader

Learning how to read schematics, questions about fractional voltage in schematic

Good introductory book to type theory?

Why did Gendry call himself Gendry Rivers?

Displaying an Estimated Execution Plan generates CXPACKET, PAGELATCH_SH, and LATCH_EX [ACCESS_METHODS_DATASET_PARENT] waits

While drilling into kitchen wall, hit a wire - any advice?

If quadruped mammals evolve to become bipedal will their breast or nipple change position?

Convert a huge txt-file into a dataset

What is the meaning of "matter" in physics?

My C Drive is full without reason

A problem with Hebrew and English underlined text

Extracting the parent, leaf, and extension from a valid path

How to loop for each table in one sheet VBA

Excel VBA to determine last non-value (IE may have a formula but no value) row in columnHow to avoid using Select in Excel VBAactivesheet in excel VBATable ListObject not limited to rows of table but counts the whole sheetConditional copy Excel File-2 data to excel file-1?Vba Code to Delete data based on a drop box choiceTake the date in one worksheet and find the same date in another worksheet column and return the cell reference for that date to use in a loopVBA Function Not Working with nested loopsexcel VBA code to ignore an email attachment if missing from folder

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty height:90px;width:728px;box-sizing:border-box;

0

im trying to generate lists of table and column to txt file from excel file.
my code just generate for all clumn until end of row because i have no idea how to define variable to limit looping each table :

here the code and excel data image Excel data

Dim field As String
Dim table As String
Dim t As Integer
Dim f As Integer
Dim lastrow As Integer
Dim myFile As String
Dim xStr As String

myFile = "D:table.txt"

With Sheets("Sheet1")
 Open myFile For Output As #1

 table = """table_name"": """ & .Range("I2") & ""","
 Print #1, table

 lastrow = Range("A" & Rows.Count).End(xlUp).Row

 For f = 2 To lastrow
 field = """column_name"": [" & Chr(10) & """" & .Range("B" & f) & """" & Chr(10) & _
 "],"
 Print #1, field
 Next f

 Close #1


End With

I imagine the code like below(CMIIW the logic), but how to write this on vba:

for t = 1 to "count table on sheet (i dnt know how to define this value)"
 table = "tablename"
 Print #1, table

 for f = "first row table t + 1" to lastrow table t
 field= "fieldname"
 Print #1, field
 Next f
Next t

Base on answer of user11246173 i know how to loop as number of table count,
but i still cant get the range of each specific cell like my code above.
Please help to resolve my code.

Anyone can please help me on this?

excel vba

share|improve this question

edited Mar 29 at 2:28

Great Saiyaman

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

add a comment | 

0

im trying to generate lists of table and column to txt file from excel file.
my code just generate for all clumn until end of row because i have no idea how to define variable to limit looping each table :

here the code and excel data image Excel data

Dim field As String
Dim table As String
Dim t As Integer
Dim f As Integer
Dim lastrow As Integer
Dim myFile As String
Dim xStr As String

myFile = "D:table.txt"

With Sheets("Sheet1")
 Open myFile For Output As #1

 table = """table_name"": """ & .Range("I2") & ""","
 Print #1, table

 lastrow = Range("A" & Rows.Count).End(xlUp).Row

 For f = 2 To lastrow
 field = """column_name"": [" & Chr(10) & """" & .Range("B" & f) & """" & Chr(10) & _
 "],"
 Print #1, field
 Next f

 Close #1


End With

I imagine the code like below(CMIIW the logic), but how to write this on vba:

for t = 1 to "count table on sheet (i dnt know how to define this value)"
 table = "tablename"
 Print #1, table

 for f = "first row table t + 1" to lastrow table t
 field= "fieldname"
 Print #1, field
 Next f
Next t

Base on answer of user11246173 i know how to loop as number of table count,
but i still cant get the range of each specific cell like my code above.
Please help to resolve my code.

Anyone can please help me on this?

excel vba

share|improve this question

edited Mar 29 at 2:28

Great Saiyaman

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

add a comment | 

im trying to generate lists of table and column to txt file from excel file.
my code just generate for all clumn until end of row because i have no idea how to define variable to limit looping each table :

here the code and excel data image Excel data

Dim field As String
Dim table As String
Dim t As Integer
Dim f As Integer
Dim lastrow As Integer
Dim myFile As String
Dim xStr As String

myFile = "D:table.txt"

With Sheets("Sheet1")
 Open myFile For Output As #1

 table = """table_name"": """ & .Range("I2") & ""","
 Print #1, table

 lastrow = Range("A" & Rows.Count).End(xlUp).Row

 For f = 2 To lastrow
 field = """column_name"": [" & Chr(10) & """" & .Range("B" & f) & """" & Chr(10) & _
 "],"
 Print #1, field
 Next f

 Close #1


End With

I imagine the code like below(CMIIW the logic), but how to write this on vba:

for t = 1 to "count table on sheet (i dnt know how to define this value)"
 table = "tablename"
 Print #1, table

 for f = "first row table t + 1" to lastrow table t
 field= "fieldname"
 Print #1, field
 Next f
Next t

Base on answer of user11246173 i know how to loop as number of table count,
but i still cant get the range of each specific cell like my code above.
Please help to resolve my code.

Anyone can please help me on this?

excel vba

share|improve this question

edited Mar 29 at 2:28

Great Saiyaman

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

Dim field As String
Dim table As String
Dim t As Integer
Dim f As Integer
Dim lastrow As Integer
Dim myFile As String
Dim xStr As String

myFile = "D:table.txt"

With Sheets("Sheet1")
 Open myFile For Output As #1

 table = """table_name"": """ & .Range("I2") & ""","
 Print #1, table

 lastrow = Range("A" & Rows.Count).End(xlUp).Row

 For f = 2 To lastrow
 field = """column_name"": [" & Chr(10) & """" & .Range("B" & f) & """" & Chr(10) & _
 "],"
 Print #1, field
 Next f

 Close #1


End With

for t = 1 to "count table on sheet (i dnt know how to define this value)"
 table = "tablename"
 Print #1, table

 for f = "first row table t + 1" to lastrow table t
 field= "fieldname"
 Print #1, field
 Next f
Next t

share|improve this question

edited Mar 29 at 2:28

Great Saiyaman

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

share|improve this question

edited Mar 29 at 2:28

Great Saiyaman

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

asked Mar 23 at 6:28

Great SaiyamanGreat Saiyaman

177

Option Explicit

Sub loopLO()

 Dim i As Long, c As Long

 With Worksheets("sheet1")
 For i = 1 To .ListObjects.Count
 Debug.Print .ListObjects(i).Name
 For c = 1 To .ListObjects(i).ListColumns.Count
 Debug.Print .ListObjects(i).ListColumns(c)
 Next c
 Next i
 End With

End Sub

Option Explicit

Sub loopLO()

 Dim i As Long, c As Long

 With Worksheets("sheet1")
 For i = 1 To .ListObjects.Count
 Debug.Print .ListObjects(i).Name
 For c = 1 To .ListObjects(i).ListColumns.Count
 Debug.Print .ListObjects(i).ListColumns(c)
 Next c
 Next i
 End With

End Sub

Option Explicit

Sub loopLO()

 Dim i As Long, c As Long

 With Worksheets("sheet1")
 For i = 1 To .ListObjects.Count
 Debug.Print .ListObjects(i).Name
 For c = 1 To .ListObjects(i).ListColumns.Count
 Debug.Print .ListObjects(i).ListColumns(c)
 Next c
 Next i
 End With

End Sub

Option Explicit

Sub loopLO()

 Dim i As Long, c As Long

 With Worksheets("sheet1")
 For i = 1 To .ListObjects.Count
 Debug.Print .ListObjects(i).Name
 For c = 1 To .ListObjects(i).ListColumns.Count
 Debug.Print .ListObjects(i).ListColumns(c)
 Next c
 Next i
 End With

End Sub

Option Explicit

Sub loopLO()

 Dim i As Long, c As Long

 With Worksheets("sheet1")
 For i = 1 To .ListObjects.Count
 Debug.Print .ListObjects(i).Name
 For c = 1 To .ListObjects(i).ListColumns.Count
 Debug.Print .ListObjects(i).ListColumns(c)
 Next c
 Next i
 End With

End Sub