excel - Appending values to an array while scraping -


i'm pretty new vba don't know how use arrays properly.

i trying add new values array i'm scraping documents don't know how this..

  • the values have being scraped 275 documents.
  • i tried write values immediate window ran, worked well, 200 lines.
  • i append 4 lines every time runs through file,
  • one line each variable rfr, chief ,etc....

the code:

sub deletenotopssheet() dim fpath string dim fname string dim wb workbook dim ws worksheet dim xws worksheet dim rfr string, chief string, yard string, tp string dim output thisworkbook  dim long dim spath string 'which folder? fpath = "\\hofiler1\fileserver\users\achan\documents\scrape\manning\sep" 'check if slash included if right(fpath, 1) <> "\'" fpath = fpath & "\" end if 'check xlsm files fname = dir(fpath & "*.xls") 'turn of screen application.screenupdating = false application.displayalerts = false 'loop until run out of files  while fname <> "" 'open workbook set wb = workbooks.open(fpath & fname)  each xws in wb.worksheets  if xws.name = "ops sheet" '--> getting object required error here      rfr = left(activeworkbook.name, 11) & " - reefer foreman: " & worksheetfunction.counta(range("p42"))     chief = left(activeworkbook.name, 11) & " - chief foreman: " & worksheetfunction.counta(range("v78"))     yard = left(activeworkbook.name, 11) & " - yard foreman: " & worksheetfunction.counta(range("ab74:ab81"))     tp = left(activeworkbook.name, 11) & " - tpc foreman: " & worksheetfunction.counta(range("ab68"))      'need here: append these values sheet1 on thisworkbook     'debug.print rfr     'debug.print chief     'debug.print yard     'debug.print tp  end if wb.save wb.close true  next  application.displayalerts = true  'delete others  'savechanges:=true, filename:=newname 'increment count feedback = + 1 'get next file name fname = dir() loop 'turn screen on application.screenupdating = true 'give feedback msgbox "all done." & vbnewline & "number of files changed: " & i, vbokonly, "run complete" end sub

to write data sheet1 suggest:

a) declare variable keep track of row writing to

dim rowout long

b) every time go write new row, increment variable

c) either write each item single column, new row each item

rowout = rowout + 1: thisworkbook.worksheets("sheet1").cells(rowout, "a").value = rfr rowout = rowout + 1: thisworkbook.worksheets("sheet1").cells(rowout, "a").value = chief rowout = rowout + 1: thisworkbook.worksheets("sheet1").cells(rowout, "a").value = yard rowout = rowout + 1: thisworkbook.worksheets("sheet1").cells(rowout, "a").value = tp

or write each item different column on same row

rowout = rowout + 1 thisworkbook.worksheets("sheet1").cells(rowout, "a").value = rfr thisworkbook.worksheets("sheet1").cells(rowout, "b").value = chief thisworkbook.worksheets("sheet1").cells(rowout, "c").value = yard thisworkbook.worksheets("sheet1").cells(rowout, "d").value = tp

Comments

Post a Comment

Popular posts from this blog

sql server - Cannot query correctly (MSSQL - PHP - JSON) -

i have little problem on project. , turns out query result returns nothing when value of first name or last name has 'ñ' in it. here's code config.php: <?php ini_set('mssql.charset', 'utf-8'); header('content-type: text/html; charset=utf-8'); $servername = "192.168.1.21"; /* ip add of db server */ $connection = array("database" => "db", "uid" => "?", "pwd" => "***"); $conn = sqlsrv_connect($servername, $connection); if(!$conn){ echo "connection not established."; die(print_r(sqlsrv_errors(), true)); } ?> myquery: $idnumber = $_post["idnum"]; $response = array(); $query2 = "select clname, cfname, cmname, cqualifier student cidno = '$idnumber'"; try{ $stmt2 = sqlsrv_query($conn, $query2); } catch(pdoexeption $ex){ $response["success"] = 0; $response["message"] = "d...
Read more

php - trouble displaying mysqli database results in correct order -

i have table in database stores events , date expire. want display events on website display current events first expired events after? i have tried following sql $sql = "select noticeid, notice, noticedesc, noticeimg, noticedate, expirydate tbl_notices group noticeid ,expired order expirydate asc"; but returns expired results first due expirydate being ordered asc in query. my tbl_notice structure looks this noticeid => int(4) notice => varchar(100) noticedesc => text noticedate => timestamp noticeimg => varchar(40) expirydate => datetime expired => int(1) 0 current or 1 expired my php code is $sql = "select noticeid, notice, noticedesc, noticeimg, noticedate, expirydate tbl_notices group noticeid ,expired order expirydate asc"; $result = mysqli_query($conn,$sql); if ($result->num_rows > 0) { // output data of each row while($row = $result->fetch_assoc()) { ...
Read more

C++ Linked List -

i trying create linked list download txt file , use linked list handle file line line. when handling downloaded linked list operations performed on such text editor would. encountering problems however. seems "node(string value)" section of code has wrong though original node() declaration no arguments passes. unable figure out quite is. node.h class node { public: node(); node(string value); void setnext(node *nextnode); // allows user set "next" pointer of node points friend class linkedlist; private: string data; // data box node* next; // pointer box }; node.cpp # include <string> # include "node.h" using namespace std; node::node() { data = ""; next = null; } node::node(string value) { data = value; next = null; } void node::setnext(node *nextnode) // allows user set "next" pointer of node points { this->next = nextnode; } your #include <string> ...
Read more