Программирование, т. 5.1.

Всем привет.

Цель задания : я в C# вписываю данные через textbox и отправляю их в excel.

Мне нужно ,чтобы ктото из вас написал мне часть кода которая позволяют вписывать автоматически в один и тот же excel файл n-ый текст

Примерно как это выглядит -

- я ввел данные в textbox

- открывается excel файл и вписывает на автомате данные

 

часть кода примерно выглядит так

open(excel.exsl)

shet_.cells(i,j).value= "text.box1"

save(excel.exsl)

 

- мне нужно чтобы вы четко и красиво и пнеравильно скоректировали код

заранее благодарю )

Option Explicit
Const xlCellTypeLastCell = 11
Dim strFullPath
strFullPath = "C:\temp\1.xlsx"
Dim strInput
strInput = InputBox ("Type a string to add to excel file [" + strFullPath + "] and press OK!")
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = False
.DisplayAlerts = False
Dim objWorkbook
Set objWorkbook = .Workbooks.Open(strFullPath)
With objWorkbook

 With .ActiveSheet
  Dim LastRow
  LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
  .Cells(LastRow + 1, 1).Formula = strInput
 End With
 .Save
 .Close True
End With
Set objWorkBook = Nothing
.Quit
End With
Set objExcel = Nothing

классный шарп

Option Explicit;
Const xlCellTypeLastCell = 11;
Dim strFullPath;
strFullPath = "C:\temp\1.xlsx";
Dim strInput;
strInput = InputBox ("Type a string to add to excel file [" + strFullPath + "] and press OK!");
Dim objExcel;
Set objExcel = CreateObject("Excel.Application");
With objExcel
{
.Visible = False;
.DisplayAlerts = False;
Dim objWorkbook;
Set objWorkbook = .Workbooks.Open(strFullPath);
With objWorkbook
{
 With .ActiveSheet
 {
  Dim LastRow;
  LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row;
  .Cells(LastRow + 1, 1).Formula = strInput;
 }
 .Save;
 .Close True;
}
Set objWorkBook = Nothing;
.Quit
}
Set objExcel = Nothing;

теперь шарп

осталось только dim -> var, set -> ничего, nothing -> null, with -> using :rickroll:

классный шарп

хуле палишь ((

var xlCellTypeLastCell = 11;
var strFullPath = 'C:\\temp\\1.xlsx';
//var strInput = prompt('Type a string to add to excel file [' + strFullPath + '] && press OK!');
var strInput  = 'test_text';
var objExcel = new ActiveXObject('Excel.Application');
objExcel.Visible = false;
objExcel.DisplayAlerts = false;
var objWorkbook = objExcel.Workbooks.Open(strFullPath);
var LastRow;
LastRow = objWorkbook.ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row;
objWorkbook.ActiveSheet.Cells(LastRow + 1, 1).Formula = strInput;
objWorkbook.Save;
objWorkbook.Close(true);
objWorkBook = null;
objExcel.Exit;
objExcel = null;

не ебу короче как инпут делается на js

ReferenceError: ActiveXObject is not defined

ReferenceError: ActiveXObject is not defined

да у тебя же убунта

дел

потому что у тебя имя присваивается позже, чем собака гавкает, очевидно же

Dog dog1 = new Dog();
dog1.name = "Bart";
dog1.bark();

вообще, даже если не обращать внимание на пиздецкий код - это можно списать на то что ты не шаришь

но писать комментарии транслитом - это конечно эпик

бля и правда

спасибо

потому что у тебя имя присваивается позже, чем собака гавкает, очевидно же

 

Dog dog1 = new Dog();
dog1.name = "Bart";
dog1.bark();

 

вообще, даже если не обращать внимание на пиздецкий код - это можно списать на то что ты не шаришь

но писать комментарии транслитом - это конечно эпик

ну мне препод дал хуевину типа задач по ооп

бля на деле и правда я слепой

если это ООП, то я наверно пре-сеньер жс

new + животные = ооп ¯\_(ツ)_/¯

ах да, я и забыл

ну ооп для даунов (типа меня)

не овните только плиз :avtorklif:

ну ооп для даунов

чет я зашкварился пиздец

сори гайс

если это ООП, то я наверно пре-сеньер жс

постсиниор

какой нахуй ActiveXObject, когда в .нете есть

using Excel = Microsoft.Office.Interop.Excel;

?

в голос с фея =))) и ооп

есь че про киви апи годное почитать? надо сделать чтобы юзвери на сайте туда-сюда бабки переводили

По вебке лабе надо сделать ограничение пользователя с помощью файла web.xml

вот то что я туда добавил

<security-constraint>
<web-resource-collection>
<url-pattern>/*</url-pattern>
</web-resource-collection>
<auth-constraint>
<role-name>user</role-name>
</auth-constraint>
</security-constraint>
<security-role>
<role-name>user</role-name>
</security-role>


<login-config>
	<auth-method>FORM</auth-method>	  
	<form-login-config>			
		<form-login-page>/auth.jsp</form-login-page>			
		<form-error-page>/auth-error.jsp</form-error-page>	  
	</form-login-config>
</login-config>

вот файл tomcat-users.xml

<tomcat-users>
<role rolename="user"/>
<user username="user" password="user" roles="user"/>
</tomcat-users>

проблема в том что всегда при вводе пароля, даже user user кидает на страницу с ошибкой

auth.jsp

<%@page contentType="text/html" pageEncoding="UTF-8"%>
<!DOCTYPE html>
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
	<title>JSP Page</title>
</head>
<body>
	<form action="j_security_check" method="post" name="loginForm">
		<input type="text" name="j_username" placeholder="имя" size="20"/><br>
		<label><fmt:message key="txtPassword" /></label><br>
		<input type="password" name="j_password" size="20"/><br>
		<input type="submit" value="Ввод"/>
	</form>
</body>
</html>

в чём дело